DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


**F ILE**1D**DBGSOURCE 


DDDDDDDD BBBBBBBB GGGGG6GGG SSSSSSSS 000000 UU UU RRRRRRRR cCCCCCCC SC EEEEEEEEEE 

DDDDDDDD BBBBBBBB GGGGGGGG SSSSSSSS 000000 UU UU RRRRRRRR CCCCCCCC §«=EEEEEEEEEE 

dD DD 8B BB GG SS 00 00 UU UU RR RR CC EE 

DD DD BB BB GG SS 00 0O UU UU RR RR CC EE 

DD DD 68 BB GG SS 00 0O UU UU RR RR CC EE 

DOD DD BB GG SS 00 00 UU UU RR RR CC EE 

DD DD 88888888 GG SSSSSS 00 0O UU UU RRRRRRRR cc EEEEEEEE 

DD DD GG SSSSSS 00 00 UU UU RRRRRRRR cc EEEEEEEE 

dD DD 6B BB GG G6GGGGG $$ 00 0O UU UU RR RR cc EE 

DD DD BB BB GG G6GG6GG6G S$ 00 00 UU UU RR RR cc EE 

DD DD 6B BB GG GG S$ 00 0O UU UU RR RR cc EE eeee 
DD DD 8B BB GG GG SS 00 00 UU UU RR RR cc EE eee 
DODDDDDD BBBBBBBB GGGGGG SSSSSSSS 000000 UUUUUUUUUU RR RR cCCCCCCC = EEEEEEEEEE eeee 
DDDDDDDD BBBBBBBB GGGGGG SSSSSSSS 000000 UUUUUUUUUU RR RR Cccccccc =EEEEEEEEEE eeee 
LL IIIII] SSSSSSSS 

LL HII] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LELLLLLLLL III] SSSSSSSS 

LLLLELLLLL 1111 SSSSSSSS 
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yOL>000 12-8 08- 1 ope 95:73:23 DEBUG. RCSDBGSOURCE .049s 1 ’ ( 
; 1 MODULE DBGSOURCE (IDENT = ‘V04-000') = 
BEGIN 
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i® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
CE mM. LICENSE AND WITH THE 
SOFTWARE OR ANY OTHER 
H 


LESE 


w 

® 

® 

® 

® 

H ‘ 

; N 0 * 
't COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE ® 
tt OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. . 
. w 
tt THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. ® 
® 

e 

® 

ae 

® 

® 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
ts SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 i eeeeetereeeeeeeeeeedeeeeeeneeeeeeeeeerereeeereneeteneeerenetenereeeererenee 
1! 

1 ! WRITTEN BY 
= Bert Beander August, 1981 

1! Ping Sager 

: Rich Title 

1 ! MODULE FUNCTION 

> This module contains all routines connected with DEBUG's source Line 
: display feature. It thus implements the TYPE, EXAMINE/SOURCE, SET 
1: ¢ 
1! 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SOURCE, SHOW SOURCE, and CANCEL SOURCE commands, and it contains all 
routines which look up source Lines and open and read source files. 
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OOO VE WN $0 ODBNO UE WN OOD NO VSWR OOO Ouvr rw 


NAUMAN @ 0 OOWOU ES OOOO UNE WIN OOOO NEW OO OOVNOU FUN" O0OW 
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0 

0 
re ° REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
42 1 FORWARD ROUTINE 
43 1 DBGSSRC_CANCEL SOURCE: NOVALUE, ' Handle the CANCEL SOURCE command 
44 1 DBGSSRC_CLOSE_FILE: NOVALUE, : Close a source file 
45 1 DBGSSRC_INIT: NOVALUE, ! Initialize data structures at DEBUG 
4 1 ; nitialization time 
4 1 DBGS$SRC_LINE_TO_ REC: NOVALUE, ! Translate Line number to record number 
48 1 DBG$SRC"LNUM_RANGE: NOVALUE, ' Returns a module's Line number range 
49 1 DBGSSRC_OPEN, ' Actually does the open and verifies 
50 1 : the attributes of a source file 
51 1 DBGSSRC_OPEN_FILE: NOVALUE, ' Open a source file after applying all 
26 1 : directory search rules 
5 1 DBGSSRC_OUTPUT_LINE: NOVALUE, ' Output a source Line in proper format 
54 1 DBGSSRC"READ_FILE: NOVALUE, ' Read a source Line from a source file 
55 188 DBGS$SRC"SEARTH, : Actually does the search 
2$ 189 DBGSSRC_SEARCH CMD: NOVALUE, ! Handle the SEARCH command 
5 190 DBGSSRC“SET_MAR_FILES: NOVALUE, ! Set maximum number of source files 


4 1 
GSOURCE 16-Sep-19 73 AX-11 Bliss-32 v4.0-7 Pa 
Mite tits 14- Sep 71382 96: 3:23 DEBUG. SRC DBGSOURCE. B33; 31 | ” 


; SS 191 1 ' at can be o open at one time 

.- 138 1 DBGSSRC_SET SOURCE: NOVALUE : ime the SET SOURCE command 

; @& 195 1 DBGSSRC =3H00_ SOURCE: NOVALUE, ' Handle the SHOW SOURCE command 

3; 6) 0194 1 DBGS$SRC_T LINE, ' Retrieve and type out a source Line 
a BI? 1 DBGSSRC_ ~TYPE “tNUN’ SOURCE: NOVALUE, ! Type a set of source Lines given a 

R. ¥ 4 1 ; module and a Line number range 
; & 0197 1 DBGSSRC_TYPE_PC_SOURCE: NOVALUE, ' Type : set of source lines given a 

; 6 0198 #1 : Program Counter range 

; © 0199 +1 OUTPUT_DIR_LIST : NOVALUE, ! Outputs a source directory List at 
; | 6OF Bsne 1 ' the terainal. 

; & 0201 1 TYPE _PC_SOURCE _HANDLER; ! Handler to catch the message 


a | 


DBGSOURCE 
v04=000 
; 70 9 02 1 EXTERNAL ROUTINE 
Se 03 1 DBGSFORMAT FAO_OUT: NOVALUE, 
‘oe 0204 1 DBGSGET_MEMORY, 
Ee 0205 1 DBGSGET~TEMPMEM, 
: 44 8 06 : DBGSNEWCINE: NOVALUE, 
: 7% 0 88 1 DBGSPC_TO_LINE_LOOKUP, 
Hae 4 0209 1 
3 A 8 19 : DBGSPRINT: NOVALUE, 
: 80 0 1g 1 DBGSREL_MEMORY: NOVALUE 
>: 81 0213 1 DBG$SCR-SOURCE_BEGIN: NOVALUE, 
.. € 0214 1 DBG$SCR-SOURCE-END: NOVALUE 
c= © 0215 1 DBG$SCR-SOURCE-LINE: NOVALUE, 
; «84 0216 1 DBGSSTA_SYMNAME: NOVALUE, 
: «85 0217 1 
: B86 0218 1 LBRSCLOSE, 
> 87 0219 1 LBRSF IND, 
> 88 0220 1 
>: 89 0221 1 
> 90 02e¢ 1 LBRSGET_RECORD, 
> 91 02¢ 1 
> 92 0226 1 LBRSLOOKUP_KEY, 
> 93 0205 1 LBRSINI_CONTROL, 
> 94 0226 1 
> 95 0227 1 LBRSOPEN, 
: 96 0228 1 LBRS$SET_ MODULE, 
; «97 0229 1 STRSUPCASE, 
: 98 0230 1 SYSSFAOL; 
: 99 0231 1 
t 100 0 3 1 
> 101 0233 1 EXTERNAL 
ls 108 0234 DBGSGL_CHARTBL: REF CHRTBLSTABLE, 
$106 0236 1 DBGS$GB_LANGUAGE: BYTE, 
S105 0237 1 DBG$GL~SCREEN_SOURCE; 
(3 106 0238 1 
' 107 0239 1 LITERAL 
> 108 0240 1 MAX_MAX_FILES = 20, 
S109 0241 1 
: 110 0248 1 NAMBUF S1ZE = 256, 
: 411 0243 1 
: 112 0244 1 SEARCH_IDENT_ALL = 1, 
: 11 0245 1 SEARCH-IDENT-NEXT = ¢° 
> 116 0246 1 SEARCH-STRING_ALL = 3, 
: 115 0247 1 SEARCH-STRING-NEXT = 4 
> 116 0248 1 SRCBUF SIZE = 256, 
: 17 0249 1 RFATBL_SIZE = 300, 
; «118 0250 1 RFATBL_ENTRIE = 50, 
> 119 0251 1 INIT_RFATBL_SPACING = 5; 
> 120 3 1 
+ 121 531 
: 12 54 1 GLOBAL 
: 1 55 1 DBGSSRC_LEFT_MARGIN : INITIAL(1) 
3 126 0 56 1 DBG$SRC-RIGHT MARGIN : INITIAL (255) 
> 125 0257 1 DBGSSRC-TERM_QIDTH: INITIAL(80), 
+ 126 0258 1 DBGSSRC“MAX_FILES: INITIAL(5), 


N 1 
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! Build an output buffer for prenet ong 


Ax-11 OL igsne vee 038 
DEBUG. SRC JDBGSOURCE .832;1 


Get a tempory memory block 
Output he surrent print buffer and 
initialize a new print Line 
emer | an absolute PC address to a 
ne 


Get a permanent nory § bloc 


number 

Output text to the print buffer using 
FAO formattin 

Release a permanent memory block 

Begin source output to screen display 

End source output to screen oteptay 

Output a source Line to a screen display 

Get module name for a given module RST 
pointer 

Closes an open Library 

Looks up a ex by RFA in preparation 
for reading the key's associated 


text 
Reads a text record associated with a 
module in the Library 
Looks up a module in a text Library 
Initializes a Library index for use 
by all other routines 
Opens an obs by Library 
Reads an module header in a text library 
Uppercase Conversion 
Formatted ASCII Output routine to 
do text formatting 


Pointer to DBGPARSER's Character Table 
for the currently set language 

The current Language code 

Screen Display ID for source or zero 


Maximum number of Source File Control 
Blocks we allow user to create 
Size in bytes of name buffers pointed 
° bY the RMS NAM block 
ARCH/IDENT/ALL "$ active 
RCH/IDENT/NEXT is 


RCH 

RCH/STRING/NEXT is active 

ei es of source record buffer 
f the RFA table 


Number of source records per RFA 
table entry. 


Left margin of source output 

Right margin of source output 

Terminal width for source line display 
Maximum number of source files to be 


DBGSOURCE 
v0%=000 
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DEBUG. SRC JDBGSOURCE .832;1 


} kept open at ony one time 
DBGSSRC_NEXT_LNUM: INITIJAL(1), ! Next desired Line in the current 

: module to be typed 
DBGSSRC_NEXT_MODRSTPTR: INITIAL(O), ! Associated modul- °ST pointer 
DBGSSRC_NEXT_STMT: INITIAL(O). Next desired statement number in the 


: aig: module to be typed 
DBGSSRC_SEARCH STRING: VECTORCSRCBUFSIZE,BYTE 
INITIAL (BYTE (0, REP (SRCBUFSIZE - 1) OF (2C° °))); ; 
! Contains a counted ASCII search string 
; filled by SEARCH Command. 


1 
1 


Pointer to Linked List of Source Dir- 
ectory Search List Header blocks 
Flag set to indicate not to skip 


orm fee 
Pointer to the Module RST Entry for 
the ‘current module’’, the module 
we are now reading source from 
Set to SEARCH_FLAG's value which 
indicate whether the SEARCH 
command is in action and the 
kind of search option is used 
Pointer to first Source File Control 
Block on doubly Linked List of 
such blocks 5 
Buffer area to hold the source file 


DBG$SRC_DIR_LIST: REF ieee 
NITIAL(O), 

DBGSSRC_FORMFEED_FLAG: INITIAL(O), 

DBGSSRC_MODRSTPTR: REF RSTSENTRY, 


DBGSSRC_SEARCH_FLAG, 


DBGSSRC_SFCB_PTR: REF SFCBSBLOCK 
INITIAL(O), 


DBGSSRC_REC_BUF: VECTORCSRCBUFSIZE, 


YTE), recor 
SOURCE _TO_SCREEN_FLAG; Flag used to direct source output to 


a@ source screen display 


4 
2) 


Pe Se Oe Oe Oe Se Oe Se Ge Oe Oe Oe Se SESH Se See Se Ge FF Se Oe Se HSH Se Be Se Se Se Se SESH Se SH Oe Se SFOs SHS Se Se Oe Se SFOs ee SESH Se Oe Oe Se Seas 


co 


DBGSOURCE 
yOe 000 14-Sep-1984 


2 
JESESHOEE ABERESEE ESE 243% 


_ 
“i 
~o 


GLOBAL ROUTINE DBGSSRC_CANCEL_ SOURCE (MODRSTPTR): NOVALUE = 


' FUNCTION 

This routine handles the semantic processing of the CANCEL SOURCE and 
CANCEL SOURCE/MODULE=xxx commands. It removes the directory list for 
the specified module, or the default Givectory list if the /MODULE 
qualifier was not present, from the List of directory search lists 
pointed to by DBGSSRC_DIR_ LIST. It thus cancels the effect of the 

ET SOURCE of set SOURCE/MODULE=xxx command which created that direct- 
ory searc st. 


AAO 


MODRSTPTR = A pecarer to the Module RST Entry of the module specified 
on the CANCEL SOURCE/MODULE command. If the /MODULE quali- 
fier was not present on the command, MODRSTPTR must be zero. 


SODOOCOCOCOOOOOOOONOONO 
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OUTPUTS 
NONE 


' 

' 

i INPUTS 
a 


BEGIN 


MAP 
MODRSTPTR: REF RSTSENTRY; 
LOCA 


Pointer to Module RST Entry or zero 


L 
HDRPTR : REF SDSLSHEADER, 


00 09 09 00 09 C909 08 SII NIN NII NIN NNO OOOO 


Pointer to a Source Directory Search 
List Header Block. 

This pointer is used to walk 
through the Linked List of 
header blocks. 

Pointer to a Source Directory Search 
List Entry.This pointer is 
used to walk through the Linked 
List of entries, once the 
appropriate source directory 
search List is found. 

Points to a counted string with the 
module name corresponding to 
MODRSTPTR. (Needed in case an 
error message is signalled). 

This variable contains the previous 
Source Directory Search List Header 
as we walk through the Linked 
List. We need to remember this 
so we can unlink the header 
being cancelled. 

Pointer to a source directory List 
entry. Used during freeing up 
of space. 


Attempt to find a directory List for the module specified by MODRSTPTR,. 
PREV_HDRPTR = DBGSSRC_DIR_LIST; 


HDRPTR = ,DOGSSRC_BIR LIST: 
WHILE .HDRPTR NEQ™O 00 


ENTRY_PTR : REF SDSLSENTRY, 


SSSLESRANLSSSLEARRANV AS SSVS ARAN -SSRIEALARLIS 
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MODNAMEPTR, 


Pg Ho dd ab ~~» > 2 a) 5 4 ~ 4 os as a + 9 9 ps 2s 2 2 as 9 9 


PREV_HDRPTR : REF SDSLSHEADER, 


TEMP_PTR; 
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H 1§ 47 BEGIN 

3 1 rk 1F_ .HDRPTR CSDSLSL_MODPTR] EQL .MODRSTPTR 

; 218 4 THEN 

; 219 50 EXITLOOP; 

: 0 51 PREV_HDRPTR = My al 

: 221 ; HDRPTR = .HDRPTRCSDSLSL_FLINKI; 

: ¢ END; 

: 334 35 

: 5 2 ! If no source directory search List header block was found for the 
: $$ 0 5 specified module, signal an error to the user. 

: 8 28 if .HDRPTR EQL 0 

3 $3 0360 THEN 

3 0 8 61 BEGIN 

: H 306 IF .MODRSTPTR NEQ 0 

; ¢ 036 THEN 

; $3 0 4 BEGIN 

° 34 0365 4 DBGSSTA_SYMNAME (.MODRSTPTR, MODNAMEPTR); 

3 239 0366 4 SIGNAL TDBGS_NODIRLISM, 1, .MODNAMEPTR): 

; 236 0367 4 END 

3 gor 0368 4 

; 238 0369 ELSE 

; +44 8300 SIGNAL (DBG$_NODIRLIST); 

3 oor eM: 

: 38 0374 

>: 246 0375 ! Unlink the Source peeee ears Search List Header Block for the 
3 st? Oe78 ! MODRSTPTR module from the Source Directory Search List. Then 
: 246 B37 ! release that block and all associated Source Directory Search 
; 38 38 List Entries to the memory pool 

: 269 0380 PREV _HDRPTRESDSLSL_FLINK] = .HDRPTRCSDSLSL_FLINK); 

; 250 0381 ENTRY_PTR = .HDRPTR(SDSLSL_LIST_PTR); 

3 $2) 0388 me NEQ 0 DO 

; 3g 0384 TEMP _PTR = ENTRY PTRCSDSLSL_ENT_FLINK); 

3; 254 0385 DBGSREL_MEMORY (.ENTRY_PTR); 

; 2 i) 86 ENTRY_PTR = ,TEMP_PTR; 

; O88 DBGSREL MEMORY (.HDRPTR); 

: 259 90 

: 260 $334 ! Reinitialize all Source File Control Blocks. This forces all open source 
; 261 0336 ! files to be reinitialized when accessed so that the modified Source 
: o¢ a7 Directory Search List will be used to select and open those files. 
; 64 3 DBGSSRC_INIT(); 

; 9 RETURN; 

; $ 98 

: 268 99 END; 


ITLE DBGSOURCE 
DENT \V Pest 
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essai 


00000000 
00000000 


00000000 


00000001 
000000F F 
00000050 
00000005 
00000001 
00000000 
00000000 

00 


1 
1 


00000 
00004 
00008 
0000¢ 
00010 
00014 
00114 


00000 
00004 
00008 
0000C 
00010 
00014 
00018 
0001¢ 


20# 0001D 


00FC 00000 
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-PSECT DBGSOWN,NOEXE, PIC,2 
DBGSSRC_DIR LIST; 
DBGSSRC_FORMEEED FLAG: 
DBGSSRC_MODRSTPTR: 

-BLKB 4 
DBGSSRC_SEARCH_FLAG: 
DBGSSRC_SFCB PTR: 

» LON 
DBGSSRC_REC BUF : BS 
SOURCE_TO_ SCREEN FLAG: 

-6ixe = & 


-PSECT DBGSGLOBAL.NOEXE, PIC.2 
DBGSSRC_LEFT_MARGIN: : 
DBGSSRC.AIGHT MARGIN: 
pacssrc_ifRn wiDin:: 
DBeGSSRC_AAX FILES: 
DBGSSRC_NEXT LNUA: 
DBGSSRC_NEXT_MODRSTPTR: : 
DBGSSRC_WEXT STMT: : 
DBGSSRC, SEARCH. STRING: 
“BYTE 320255) : 


-EXTRN DBGSFORMAT FAO OUT 
-EXTRN DBGSGET MEMORY; DBOSGET 
Ex G$NE dB 


-EXTRN DBGSGL_CHARTBL, DBG$GB_LANGUAGE 
-EXTRN DBGSGL“SCREEN_ SOURCE 


-PSECT DBGSCODE.NOWRT, SHR, PIC,O 
ENTRY DBGSSRC_CANCEL_SOURCE, Save R2,R3,R4.R5,R6.-; 0290 
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fF 2 
DBGSOURCE 16=Sep-1986 02:35:55 AX-11 Bliss-32 v4.0-74 
v04=000 14-Sep-1984 96:73:23 DEBUG. SRCIOBGSOURCE O35; 1 
R? 
7 0 ' €F 9€ 03 MOVAB DBGS$SRC_DIR_LIST, R7 
$ 6 0 MOVAB DBGSREL“MEMORY, R6 
006 19 MOV LIBSSIGRAL, R5 
4 § 1 SUBL2 #4, SP 
67 1A MOVAB DBGSSRC_DIR_LIST, PREV_HDRPTR 
67 p 1 a MOVL BOSSRC_DIR-LIST, HDRPTR 
04 ac 08 A p CPL {HDRPTR), MODRSTPTR 
53 g D 9 MOVL -HDRPTR, PREV_HDRPTR 
2 b¢ p ¢ mOVL (HDRPTR), HDORPTR 
5 D 1 2%: TSTL §HDRPTR 
29 1 ; BNEO 
06 AC D TSTL  MODRSTPTR 
18 13 000 BEQL «6s 38 
04 Ht DD 80 ¢ PUSH SODRSTPTR 
000000006 00 05 FB 0003F CALLS re DBGSSTA_SYMNAME 
6E DD 0046 PUSHL MODNAMEPTR 
01 DD 0004 PUSHL 
00028CE8 8F DD OO04A PUSHL #167144 
65 03 FB o038 CALLS #3, LIBSSIGNAL 
00028cF0 $? DD 00055 3$ PUSHL #167152 
65 01 FB 0058 CALLS #1, LIBSSIGNAL 
63 62 DO O00SE 4s MOVL  (HORPTR), (PREV_HDRPTR) 
53 06 A b9 0061 MOVL 4 (HDRPTRS, ENTRY_PTR 
0D 1 0065 5$ BEQL = 6$ 
54 : DO 0006 MOVL § (ENTRY_PTR), TEMP_PTR 
0D O006A PUSHL ENTRY PTR 
6 91 FB 006C CALLS #1, DBGSREL_MEMORY 
5 2 og BRR ee povt TEMP_PTR, ERTRY_PTR 
52 0D Boor 6$ PUSHL HDRPTR 
At 01 FB 00076 CALLS #1, DBGSREL_MEMORY 
LLS #0, DBGSSRCWIN 
0000v CF 00 FB 0007 CALLS #0. DBGSSRC~INIT 
04 0007E RET 


; Routine Size: 127 bytes, Routine Base: DBGSCODE + 0000 
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DBGSOURCE 1S-sop-1 4 02:35:55 Ax-11 Bliss-32 V4.0-74 
yoe20b0 aa tiaets 1 96:73:22 {oeBUG. SRC DBGSOURCE .832;1 
: 70 aot } ROUTINE DBGSSRC_CLOSE_FILE(SFCBPTR): NOVALUE = 

; i 4 : 1 ' FUNCTION 

3 7 05 1! This routine closes an open source file. it accepts a Source File Con- 
: 74 06 1! trol Block (SFCB) pointer as input, determines mpesner the correspond- 
: e275 405 1! 19 file is an RMS file or a module in a source Library, and closes the 
; 76 88 1 } file. It returns immediately if the SFCB is not in use. 

s a7 407 1! 

; 278 rt 1 ! INPUTS 

: 79 409 1! SFCBPTR = A pointer to the Source File Control Block for the source file 
; 280 10 1! to be closed. 

3 8 411 1! 

: ; oig 1 ! OUTPUTS 

é 8 41 . 3 NON 

: 84 414 1! 

2 eee 

Pe oes a 

3 89 0219 SFCBPTR: REF SFCBSBLOCK; ! Pointer to Source File Control Block 
: 291 04 1 LOCAL 

3 4 ¢ STATUS; !' Close status 

; $3 04 

an 

: $36 §¢ $ ! Close the file specified by the Source File Control Block pointer 

3 344 8 f } SFCBPTR. Determine the kind of the SFCBPTR block and act accordingly. 

: 44 Be > CASE... SF CBPTRCSF CBSB_KIND] FROM SFCBSK_NOTUSED TO SFCBSK_FILE_UNAVAIL OF 

; 01 04 1 

: 308 04 5 ! This Source File Control Block is not used or is occupied by an 

3 be 8 : available file. Nothing needs to be done. 

; 306 0436 CSFCBSK_NOTUSED, SFCBSK_FILE_UNAVAIL): 

; 307 Be 0; 

: 306 0039 

; 310 0440 ' This Source File Control Block is for an open RMS source file. Close 
3 7 ore RMS file. 

; ig a4 CSF CBSK_RMSFILE): 

: 14 44 BEGIN 

: 15 0445 STATUS = SCLOSE(FAB = .SFCBPTRCSFCBSL_FABPTRI); 

: 16 re If NOT STATUS THEN SIGNAL (.STATUS); 

ag ; : 

: 0 50 ' This Source File Control Block is for a module in an open source 

3 1 2) library. Close the source Library. 

; § 438 CSFcBsK LBRFILE): 

: 5 455 STATUS = LBRSCLOSE (SF CBPTRCSFCBSL LBRINDERI); 

; 326 456 If NOT .STATUS THEN SIGNAL(.STATUS); 
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END; 


CINRANGE, OUTRANGE): 
$DBG_ ERROR(' DBGSOURCE \DBGSSRC_ CLOSE FILE"); 


TES; 
' The file is successfully closed. Mark the Source File Control Block as 
046 being ‘NOT USED’ and return. 
46 § CBPTRESFCBSB_KIND) = SFCBSK_NOTUSED; 
RETURN; 


0471 +1 END; _ 


45 4C 49 46 SF 
.EXTRN SYSSCLOSE 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
000C 00000 DBGSSRC_CLOSE_FILE: 
000000006 00 9€ 00002 ‘Ou 
06 AC D 


OVL 
08 ae 8F 0000D CASEB 


0 
0039 002 003 00012 1$: - WORD 


_ 
#¢t t DOWwc - 
——— "00 we 
PPMAA~UM 


OWBorvc,r 
vo 
Cc 
4d 
=x 
r 


00000000° ; 


00028362 F 
3 3 


-_o 
~ 
-~ 


06 
IB$SIGNAL 


Bow 2 BB VMnowounr w 
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18 OA 
000000006 00 1 


x¢ COA 


R2) 
1, SYSSCLOSE 


~™ 
wr 
oo uvuD 
z2Prcw 
orn 
= 
aad 


: 60(R2) 
000000006 00 g CALLS #1 LBRSCLOSE 
05 48: status, 
63 CALLS #1, L IB$SIGNAL 
08 A2 wi. &(R2) 


SOOoQooooooooooooo 
SOOoOOoOoooooooooooo 


> 
COO*OMTNO "90 "FCO 
Fowocog—-wo-wro0™" 
SOOOCOSCOOCOOOOoOooOo 
~o 
Ww 
aa 
va- 
cz> 
“vor 
ze 
& 7.) 


| 
PSECT DBGSPLIT,NOWRT SHR, PIC,0 
24 47 42 464 SC 45 43 2g 55 4F 33 47 $g 44 if 00000 P.AAA: .ASCII <28>\DBGSOURCE\<92>\DBGSSRC_CLOSE_FILE\ 
45 53 4F 4C 43 SF 43 52 53 O0000F 
; Routine Size: 80 bytes, Routine Base: DBGSCODE + 007F 


Ee Se SES, ORES One ae SE ETS ete eS 


0400 
0429 


0460 


0445 
44 
45 

0456 


0468 
0471 


DBGSOURCE 1b-s¢ 569-1986 AX=11 Bliss- 
voe- ~30 71382 95:73:2 DEBUG. SRCIDB 


ow 


3 rn 138 ! GLOBAL ROUTINE DBGSSRC_INIT: NOVALUE = 

; «6345 474 1°! FUNCTION 

: ré] 475 1! This routine initializes the Source tite Fongrot Blocks and associated 

5 4 6 1! FABs and RABs needed by the Source Li ine i) spray feature to geen en ene peas 
; 348 477 1! source files. It also f ag = the maxi ~ number of source f a +p 

: 49 4 1! will — open at 9 be80 me it ‘? called in two si Bah. hy First, 
: 350 0479 13 it is called during BEBUG initialization fo set the initial chain of 
- Bon 0480 1! Source a3e, 6 Control Blocks. And second called during the oroc- 

; 26 0481 1! ogsing of the SET SOURCE and CANCEL SouRCE® commands to reset the Source 
a 04 ¢ 1! Line Displa ay feature; those commands can change the source file look-up 
3 54 04 1! rules and thus affect whether det currently open files are the correct 

: 3 pees : files to use for source Line display. 

3 28 0486 1! The routine starts by looping through all eda By Souree File Control 

; 358 0487 1! Blocks (SFCBs) and closing n anees raner open files. It calls routine 
3 59 0488 1! DBGSSRC_CLOSE_FILE for ony Se be to be closed. It then releases all 

; 360 0489 1! SFCBs and assoc lated owe He RABs on the chain. alter that, it creates 
: 1 0490 1! anew list of SFCBs, again etch associated FABs and RABs, and marks each 
; 0491 1! SFCB as being not used. The number of SFCBs it creates, which is also 

; 0492 1! the maximum number of open source files henceforth, is specified by the 
; 64 04935 1! variable DBGSSRC MAX FILES. This maximum number can thus be changed by 
3 o? Beoe : } setting DBGSSRC_MAX_FILES appropriately and then calling DBGSSRC_INIT. 

3; 367 0496 1 ! INPUTS 

; 368 0497 1! NON 

3; 369 0498 1! 

; 370 04 1 ! OUTPUTS 

3: 371 0500 1! NONE 

3 8 0501 1! 

: 37 beng 1 

3 ge 050 BEGIN 

3; 375 0504 

$ 378 0505 

; 77 0506 SFCB_BLINK: REF SFCBSBLOCK, ' Backward Link to previous SFCB 

; 378 0507 SFCB-FLINK: REF SFCBSBLOCK, ' Forward Link to next SFCB 

;  H44 0508 SFCBPTR: REF SFCBSBLOCK: ' Pointer to the current Source File 

; 380 0509 ! Control Block (SF CB) 

; 381 0510 

3 5g Batt 

; 38 21¢ 

3 3S Belz : Make sure the number of new Source File Control Blocks is reasonable. 

; a6 Bat? if . DBGSSRC_MAX_FILES LSS 1) OR (.DBGSSRC_MAX_FILES GTR MAX_MAX_FILES) 

3 4 a "spac. ERROR( *DBGSOURCE\DBGSSRC_INIT'); 

: 390 51 

3s 0520 ! Go through all current Source File Control Blocks and for each one, close 
; 4 521 i the corresponding file, release the FAB, RAB, and other RMS blocks back to 
: 93 3 : the memory pool, and then selanes tha Source File Control Block itself. 

: 395 5246 SF corre = “ee SFCB_PTR; 

; 38 525 SFCB_F 

: 144 ; $ WHILE ati FLINK NEQ .DBGSSRC _SFCB_PTR DO 

; 399 0528 BEGIN CLOSE _FILE(.SFCBPTR); 


mms 
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400 DBGSREL MEMORY. SFCBPTR SFCBSL_FABPTR]); 
401 DBGSREL_MEMORY(.SFCBPTRESFCBSL_RABPTR); 
40 DBGSREL MEMORY (.SFCBPTRISFCBSL_NAMPTR)) : 
40 DBGSREL_MEMORY(. SFCBPTRISFCBSL_XABDATPTR]); 
04 DBGSREL_ MEMORY (. SFCBPTRISFCBSL_XABFHCPTR]); 
405 DBGSREL_ MEMORY (. SFCBPTRISFCBSL_NAMBUFFER]); 
06 DBGSREL-MEMORY(. SFCBPTRESFCBSL_RFATBLPTRJ); 
40 SFCB_FLINK = ,SFCBPTRCSFCBSL_FCINKJ; 

0 DBGSREL_MEMORY(.SFCBPTR); 

SFCBPTR = .SFCB_FLINK; 


! Now Loop DBGSSRC_MAX_FILES times to create that number of brand new Source 
! File Control Blocks and the associated RMS blocks. 


DBGSSRC_SFCB_PTR = 0; 
INCR 1 FROM T TO .DBGSSRC_MAX_FILES DO 


! Allocate memory for the Source File Control Block and mark it as 
! being Not Used. 
C 
C 


1 
1 
' 
SFCBPTR = DBGSGET MEMORY (SFCBSK SIZE); 
SFCBPTRCSFCB$SB_KIND) = SFCBSK_NOTUSED; 


' Now allocate memory blocks for all the RMS blocks we will need for 
this source file. 
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56 SFCBPTRCSFCBSL_FABPTR) = DBGSGET_MEMORY(FABSC_BLN/4); 

3 56 > = DBGSGET_MEMORY(RABSC_BLN/4); 

3 56 SF CBPTRCESFCBSL_ TR BGSGET_MEMORY (NAMSC_BLN/4); 

34 56 SF CBPTRLSFCBSL_XABDATPTR] = DBG MEMORY (XABSC_DATLEN/4); 

35 56 SF CBPTRUSFCBSL_XABFHCPTR) = DBGSGET_MEMORY(XABSC_FHCLEN/4); 

36 56 SF CBPTRCESFCBSL_NAMBUFFER) = DBGSGET MEMORY (2*NAMBUF SIZE/4); 

37 266 SF CBPTRESFCBSL_RFATBLPTR) = DBGSGET MEMORY(RFATBL_SIZE/4); 

38 56 SF CBPTRESFCBSW-RFASPACING) = INIT_RFATBL_SPACING; 

39 568 SFCBPTRCSFCBSW_RFACURLEN) = 0; 

40 569 

41 0570 : 
4 571 ! If this is the first new block, make DBGSSRC_SFCB_PTR point to it and 
7? 276 doubly Link it to itself. 
445 574 IF .DBGSSRC_SFCB_PTR EQL 0 
44 575 THEN 
44 278 BEGIN 
448 57 SFCBPTR Sf cost PLN) = .SFCBPTR; 

449 278 SFCBPTRESFCBSL_BLINK) = .SFCBPTR; 

450 57 DBGSSRC_SFCB_PTR = .SFCBPTR; 

451 580 END 

33 Re 

454 5 5 ! Otherwise, Link this block into the end of the already existing doubly 
$2? bege Linked List of Source File Control Blocks. 
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DBGSOURCE ep-1 AX-11 Bliss-32 V4.0-74 Page 13 
Vee e000 bat aets 1 96: $332 PeeUG.eRCIoBeSOURCE «03951 9 5) 
: $ 3 ELSE 
3 6 3 4 BEGIN 
: 45 B 4 SFCB_FLINK = .DBGS$SRC sfc PTR; 
: 460 9 4 SFCBBLINK = .SFCB_FLINKCSFCBSL_BLINK); 
: 461 0 4 SFCBPTRESFCBSL_FLIAK) = .SFCB_FCINK; 
: 46 91 4 SF CBPTRESFCBSL BLINK = .SFCB-BLINK: 
: 46 % 4 SFCB_FLINK(SFCB L BLINK} = .SFCBPTR: 
: 464 593 4 3f CBUBLINK SFCBSL“FLINK] = .SFCBPTR; 
; 465 594 ND; 
: 666 0595 
: 467 596 END: 
; 468 23 
: 469 9 
3 iA $299 } The Source File Control Block initialization is all done--now return. 
: 47 0601 RETURN; 
: 47 060 
: 474 0603 1 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
24 47 42 46 SC 45 43 52 55 GF 53 47 42 44 1g 0001D P.AAB: .ASCII <22>\DBGSOURCE\<92>\DBGS$SRC_INIT\ ; 
54 49 Ge 49 SF 43 52 53 0002C : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
07FC 00000 eENTRY pogssnc. INIT, Save R2,R3,R4,R5,R6.R7,RB,R9,-; 0472 
5A 00000000" EF 9E 0000 MOVAB DBGSSRC_MAX FILES, af? 3 
59 00000000" EF 9€ 0000 MOVAB DBGSSRC~SFCB P F 
58 000000006 60 9€ 9010 VAB bBcScEt =A En MORY. Raa® : 
57 000000006 00 9€ 0001 MOVAB DBGSREL“MEMORY, R7 : 
6A 05 0001 TSTL DBGSSRC_ “MAX_FILES : 0515 
05 15 000 BLEG =«:*1$ : 
14 6A 01 000 CMPL DBGSSRC_ MAX_FILES, #20 : 
15 15 000 BLEQ ; 
00000000' EF 9F 1$: PUSHAB P.AAB + 0517 
1 DD D PUSHL #1 F 
00028362 8F OD F PUSHL ; 
000000006 99 3 FB 5 CALLS #3, LIBSSIGNAL ; 
D C 28: MOVL  OBGSSRC_SFCB_PTR, SFCBPTR > 0526 
; D4 F CLRL = SFCB_FLLTNK : 0525 
69 pt a1 3$: CPL SFB FLINK, DBGS$SRC_SFCB_PTR + 0526 
$ DD 46 PUSHL FCBPT : 0528 
FF6O3)—sOCF FB CALLS DBESSRE CLOSE _FILE : 
18 Ae DD PUSHL eutsheorins” : 0529 
67 01 FB CALLS #1, DBGSREL_MEMORY : 
1C Ag Nyy PUSHL 26(sf CBPTR) > 0530 
67 01 FB CALLS DBGSREL MEMORY F 
20 Ag DD PUSHL selstee : 0531 
67 01 FB ¢ CALLS DBCSREL _MEMORY ; 
24 A2 0D . SHL SotsreePiR)” : 0532 


é 
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67 01 FB CALLS #1 DBGSREL MEMORY ; 
28 Ag DD PUSH 40(SFCOPTR + 0533 
67 01 FB CALLS #1, DBGSREL_MEMORY : 
2c Ae DD a PUSHL  44(SFCBPTR) + 0534 
67 01 FB ¢f CALLS #1 DEGSREL MEMORY : 
10 Ae DD PUSHL letst car ) + 0535 
? 0 FB 7% CALLS #1, DBGSREL_MEMORY : 
3 § N) 77 MOVL  (SFCBPTR), SFCB_FLINK : 05 
DD O007A PUSHL SFCBPTR : 053 
? ; FB 7¢ CALLS #1, DBGSREL_MEMORY : 
2 33 bd 7F ROVE EB _FLINK, SFCBPTR : 0538 
89 D4 4$: CLRL DBGSSRC_SFCB_PTR ; O34 
56 A 00 MOVL DBGSSRC"MAX_FILES, R6 3 0546 
4 04 000 CLRL : 
9 11 000 BRB : 
10 DD 0008D 5$ PUSHL #16 : 0553 
$8 Q1 FB O008F CALLS #1, DBGSGET_MEMORY : 
: 0 p 00 : MOVL RO, sf CBPTR : 
08 A 01 009 MOVE #1. B(SFCBPTR) + 0554 
14 0D 00099 PUSHL #20 : 0560 
68 gi FB 0098 CALLS #1, DBGSGET_MEMORY : 
18 A2 0 D OO9E MOVL RO, 24(SFCBPTA) : 
11 DD 000A PUSHL #1 > 0561 
58 gr FB OOOA4 CALLS #1, DBGSGET MEMORY : 
1c) =—A2 0 DO 000A7 MOVL R (SF CBPTR) : 
18 DO 000AB PUSHL #26 : 0562 
68 01 FB OOOAD CALLS #1, PGSGET MEMORY : 
20 A2 50 00 00080 MOVL RO, 32(SFCBPTR) : 
0B 0D 00084 PUSHL aii : 0563 
68 gi F 90 CALLS at, pBGSGET MEMORY : 
24 =A 0D 08 MOVL RO, 36(SFCAPTR) : 
0B DD 000BD PUSHL aii + 0564 
64 1 FB O0BF CALLS #1, DBGSGET_MEMORY : 
28 =A2 0 3 00C MOVL RO, 40(SFCBPTR) : 
7E 80 8F 9A 000C MOVZBL #108, =(SP) + 0565 
48 1 FB OCA CALLS #1, OBGSGET_MEMORY : 
2c A 0 p OCD MOVL RO. 44(SFCBPTR) F 
7 48 8F 9A 00001 movie. #75, -(SP) + 0566 
6 gi F 905 CALLS #1, DBGSGET_MEMORY : 
10 A 9 ) D MOVL RO, 16(SFCBPTR) ; 
oC A 05 D D MOVL #5. 12(SFCBPTR) + 0567 
5 9 p : Ov DaGSSRC_SFCB_PTR, RO + 0574 
& D £ MOVL SFCBPTR, (SFCBPTR) : 0577 
04 A D E MOVL SFCBPTR. 4(SFCBPTR) : 0578 
6 p EC MOVL SFCBPTR, DBGSSRC_SFCB_PTR : 0579 
1 EF BRB ; : 324 
53 50 0» Fl 6$: MOVL RO, SFCB_FLINK : 88 
06 Ad OD F4 mOVL 4($FCB FCINK), SFCB_BLINK : 0589 
6 D F8 MOVL  SFCB_FCINK, (SFCBPTR) : 0590 
04 A D FB MOVL SFCBTBLINK, 4(SFCBPTR) > O5¢1 
06 =A D FF MOVL SFCBPTR, 4(SFCB_FLINK) : 596 
D 3 MOVL  SFCBPTR. (SFCB_GLINK) : 059 
83 rs F3 00106 7%: AOBLEQ R6, I, 5$ ; 0546 
04 OO10A RET > 060 


————E ——— eee 
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3 ry 4 ° ¢ ! GLOBAL ROUTINE DBGSSRC_LINE_TO_REC(MODRSTPTR, LINENO, NAMBLKPTR, RECNO) : NOVALUE = 
; 47 6 1 ! FUNCTION 

s 67 6 1! This routine accepts a Module RST pointer and a Line number. 

; 480 608 1! It sransi ates this information to a file specification and record 

; 481 609 1! number within the file. It does this by scanning the source 

3 rt gei9 : } correlation records. 

> 484 Belg 7 This routine is used by the DBGSNEXECUTE_EDIT routine to implement 

> 485 0613 1! our EDITH interface. 

3; 486 0614 1! 

3; 487 R912 1 ! INPUTS 

: 488 o1g 1! MODRSTPTR - Module RST pointer 

3; 489 0617 1! LINENO - The desired Line number 

; 490 0618 1! 

: 491 0619 1 ! OUTPUTS 

; 49 0620 1! NAMBLKPTR - Pointer to the name block of the current source file 

; 49 0621 1! RECNO - This output parameter is filled in to 

3 494 06 ; 1! be the source record within the file. 

3; 4495 06 1! 

3; 496 0624 BEGIN 

3; 497 0625 MAP 

; 498 0626 NAMBLKPTR : REF VECTORC1,LONG], ! Returned pointer to current SFCB 

; 499 0627 MODRSTPTR: REF RSTSENTRY; ! Pointer to Module RST Entry of module 
; 300 be : : containing desired source Lines 

g 206 0630 LOCAL 

; 0631 BUFFER: VECTORC140,BYTEJ, ' Output buffer for signet ing 

; 504 B856 § BUF DESC: VECTORC2,LONG), ! Output buffer string descriptor 

3 Oe 063 DSTPTR: REF DSTSSRC_COMMAND, ! Pointer to the Source File Correlation 
3 306 0634 2 ! Command 
‘3 307 0635 DSTREC_PTR: REF DSTSRECORD, ! Pointer to the Source File Correlation 
; 508 0636 ' DST record 

; 509 0637 HIGH_LINE_NUM, ! Place holder for Ending Line Number 

; 510 0638 LENGTH, ! Length of current Source File Correlation 
s STi 0639 ‘ DST Record 

; 2\¢ 0640 LINE_NUM ! The current Listing Line number 

a i 0641 MODNAMEPTR, 

3; 514 064 MODSRCTBL: REF VECTORE,LONG), ' Pointer to a list of Source File 

3; 515 064 ' Correlation DST Record pointers 
; 516 0644 ! for the current module 

3; 517 0645 SFIT_PTR: REF SFITSENTRY, ! Pointer to the Source File ID Table 

; 518 0646 SFCBPTR: REF SFCBSBLOCK, 

s $19 peer SRC_FILEID_TBL, ' Pointer to a Linked List of File ID 

; 520 648 ! Table entries for current module 
» Ser 0649 SRC_DSTPTR, ! Pointer to Declare Source File Command 
; $§ 0650 ‘ T Recor 

3 § 0651 SRC_REC; ! The record number in the current source 
: 4 0838 ! file of the current source Line 
: 382 $3, 

; 358 55 ! Initialization. Assume that Line Number is set to the beginning of the 

; tee $ ! Listing, Source File Record Number is set to the beginning of the 

5 44 65 ' source file, no Source File ID is found, Statement Mode | not set, 

: 239 038 no Line is yet typed out, and statement number is set to 0. 

; 532 0660 DBGSSRC_FORMFEED_FLAG = FALSE; 
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DBGSOURCE 1b-se -1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 17 
v04-0 , ae ae 96:73:22 DEBUG. SRCIDBGSOURCE 689; 1 . (6) 
: 33 bee) SReeREC = 1° 
: 535 bee SFIT_PTR = 0; 
; 6 664 SRC_BSTPTR = 0; 
: 7 665 SRC_FILEID_TBL = 0; 
3 8 p286 
; 539 66 
; 540 0668 : Make sure Module Source Table pointer in module's Module RST Entry 
: ree +434 } points to a list of Source File DST Record Pointers. 
$ 208 0671 DBGSSTA_SYMNAME(.MODRSTPTR, MODNAMEPTR); 
; ace 067 IF -MODRSTPTRERSTSL_MODSRCTBL) EQL 0 
; 546 0674 SIGNAL (DBG$_SRCLINNOT,1, .MODNAMEPTR) ; 
3; 547 0675 
; 548 067 
g 203 pore Loop thru Module's Source Line Correlation DST Records. 
s $31 0679 MODSRCTBL = .MODRSTPTRCRSTS$L_MODSRCTBLI; 
: 226 0680 INCR COUNT FROM 1 TO .MODSRCTBLLO] DO 
3 35 0681 BEGIN 
; 554 068 IF .LINE_NUM GTR .LINENO THEN EXITLOOP; 
5 See 0683 3 
3; 336 0684 ; : 
: 330 Sees Get Source Line Correlation DST Record pointer. 
3; 559 0687 ; DSTREC_PTR = .MODSRCTBLC.COUNT); 
; 560 0688 IF .DSTREC_PTRIDSTSB_TYPE) NEQ DSTS$K_SOURCE 
; 561 0689 3 HEN 
; 62 06 3 $DBG_ERROR( "DBGSOURCE\DBGS$SRC_LINE_TO_REC 20°); 
2 
3; 565 069 ' Scans thru Source File DST Record to decode the Source File Correlation 
; 566 0694 ' Commands. Pick up the length of this DST record. Set pointer to the 
; re 0 } first command entry. 
; 569 0697 ; LENGTH = .DSTREC_PTRCDST$B_LENGTH); 
; 570 0698 DSTPTR = DSTREC_PTRCDSTSA_SRC_FIRST CMD); 
: 571 0699 3 WHILE (.DSTPTR = .DSTREC_PTR = 1) NEQ .LENGTH DO 
: ats 0700 4 BEGIN 
3; $7 0701 4 IF .LINE_NUM GTR .LINENO THEN EXITLOOP; 
3 «574 8708 4 
s 575 0703 4 
s $76 0704 4 ! Pick up the command code defined in Source File DST Record 
; Sr 0705 4 ! and use it as a CASE index so each significant command code 
3 278 Boe ? can be interpreted individually. 
; 580 0708 4 CASE .DSTPTRCDST$SB_SRC_COMMAND) FROM DSTSK_SRC_MIN_CMD TO 
; 581 0709 4 DST$K~SRC-MAX-CMD OF 
3 eRe 0710 4 SET 
3 2 fae 4 
: 84 ay 4 f 
; 585 713 4 ' Declare Source File Command. Allocate some space to build 
; 586 714 & ' the File ID Table. 
; 587 715 4 ‘ 
; 588 Orig 4 COSTSK_SRC_DECLFILE): 
; 64589 0717 § BEGIN 


| 
| 
3 


<o 
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IF .SFIT PTR NEQ O THEN SFIT_PTRESFIT$SL_CURRECNUM] = .SRC_REC; 
SRC_DSTPTR 
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DBGSOURCE these -1984 2:35:55 AX-11 Bliss-32 V4.0-74 Page 18 
vitae 1e-Sep-19 4 95:7 246 DEBUG. SRC JDOBGSOURCE .832;1 . (6) 
90 rg IF .SFIT_PTR NEQ 0 THEN SFIT_PTRESFITSL_CURRECNUM) = .SRC_REC; 
91 71 SRC_REC = 1; 
9 720 SFIT_PTR = O8GSGET_TEMPMEM(SFITSK_SIZE); 
22 721 SFIT_PTRCSFITSL_FLINK) = .SRC rtEie TBL; 
94 07 ¢ SFITLPTRUESFITSL_FILE_ 1D] = .OSTPTRCDSTSwW_SRC_DF_FILEID); 
595 Q7 SFIT_PTRESFITSL_DSTPTR] = .DSTPTR; 
238 0724 SFIT PTRLSFITSL_CURRECNUM) = .SRC_REC; 
97 0725 SRC_FILEID_TBL = .SFIT_PTR; 
235 8! DSTPTR = .BSTPTR + -DSTPTREDST$B_SRC_DF_LENGTH] + 2; 
99 7 END; 
see 
60 7 ' Set Source File Command. This command sets the current 
60 07 ' source file to the file denoted by the File ID ver in 
604 ! the command. This File ID must be pre-defined by the 
on? Declare Source File Command. 
607 3 COSTSK_SRC_SETFILE): 
608 3 BEGIN 
0 3 
3 
3 


SFIT_ PTR = .SRC_FILEID_TBL; 
WHILE .SFIT_PTR™NEQ 0 BO 


BEG 
Bagi t OTR ES TEN _SAE NCNONDD EQL .SFIT_PTRCSFITSL_FILE_1D) 
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WR —O DONO UESWUN —“OVOOnNOufWH—OoO”0 
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! If this File ID has not yet been declared, signal an 
} invalid DST Record. 
if ~SRC_DSTPTR EQL 0 THEN SIGNAL (DBG$_INVDSTREC); 
DSTPTR = .DSTPTR + 3; 
END; 
3 
! Set Source Record Number Long Command. Set the current source 
32 } file record number. Advance DSTPTR. 
37 COST$K_SRC_SETREC_L): 
3 BEGIN 
9 SRC_REC = .DSTPTRCDSTSL_SRC_UNSLONG); 
640 DSTPTR = .DSTPTR + 5; 
641 END; 
$08 
64 77 
a3 re Set Source Record Number Word Command. (More compact form). 
646 77 CDSTSK_SRC_SETREC_w: 


aa 
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| DBGSOURCE 
VO4 
: 8a gre ; 
; 649 O77? 
; 920 778 4 
3; 651 0779 4 
$ 628 ts 4 
3 69 0781 4 
: 654 140 4 
; 655 0785 4 
3; 656 4 4 
; 657 0785 5 
; 658 bee : 
3; 659 0787 
; 660 0788 4 
; 661 0789 4 
; 66 0790 4 
; 66 0791 4 
; 664 4454 4 
3; 665 07935 4 
; 666 0794 5 
3; 667 0795 5 
; 668 0796 5 
3; 669 0797 4 
; 670 0798 4 
3; 671 0799 4 
3; 67 0800 4 
s 67 0801 4 
; 674 0802 4 
: @r 0803 4 
: 676 0804 4 
3; 677 0805 5 
3; 678 0806 5 
; 679 0807 5 
; 680 0808 4 
3; 681 0809 4 
; 682 0810 4 
3; 683 0811 4 
> 684 oels 4 
3; 685 0813 4 
; 686 0814 4 
: 687 0815 4 
; 688 0816 4 
3 one Hts 4 
: 691 $B19 ; 
: 69 0820 5 
Be 
; 695 08 ‘ 4 
BS 
; 698 8 $ 4 
: $86 358 
; 701 $ 4 
; 70 830 4 
3; 70 831 § 


dD 3 
1o=8ee-138e 93:73:23 


C= BS TE TREO ETOU SAC _UNSWORD I: 
= .DSTPTR + 5; 
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! Set Line Number Long Command. Set the current Listing Line 
number. Advance DSIPTR. 


CDST$K_SRC_SETLNUM_L): 
BEGIN 


LINE_NUM = .DSTPTRCDSTSL_SRC_UNSLONG); 
DSTPTR = .DSTPTR + 5; 


Set Line Number Word Command. (More compact form). 
CDST$K_SRC_SETLNUM_W): 
BEGIN 


LINE_NUM = ,DSTPTRCDST$W_SRC_UNSWORD); 
DSTPTR = .DSTPTR + 3; 


! Increment Line Number Byte Command. Increment the current 
! Listing Line number by a byte value given in this command. 
! Advance DSTPTR. 


' 

i] 

1 

1 

COSTS$K_SRC_INCRLNUM_B): 
BEGIN 


LINE NUM = .LINE_NUM + .DSTPTRCDSTS$B_SRC_UNSBYTE); 
lg = .DSTPTR + 2; 


' Count Form-Feeds as Source Records Command. This command says 
' that form-feeds in the source should be counted as separate 

' source records; the absence of this command says that such 

! records should be ignored as control information and should 
not be assigned Line nubmers. 


CDSTSK_SRC_FORMFEED): 


DBGSSRC_FORMFEED_FLAG = TRUE; 
DSTPTR = .DSTPTR + 1; 


Define N Separate Lines Word Command, and Define N Separate 
Lines Byte Command (More Compact Form). If a Source File is not 
set, atanel and give up. Defines the Source File and Source 
Record bers for a og number of Listing Line Numbers. 
Return if LINENO = LINE_NUM 


DSTSK_SRC_DEFLINES_W, DSTSK_SRC_DEFLINES 8): 
BEGIN 
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14-Sep-1984 DEBUG. SR 
IF .SRC_DSTPTR EQL 0 THEN SIGNAL (DBGS$_INVDSTREC); 


DBGSOURCE .B32;1 


Calculate the Listing Line number range. 


if -DSTPTRCDSTSB_SRC_COMMAND) EQL DSTSK_SRC_DEFLINES_w 


HIGH_LINE_NUM = .LINE_NUM + .DSTPTRCDSTSW_SRC_UNSWORD] - 1 
HIGH_LINE_NUM = .LINE_NUM + .DSTPTRCDSTSB_SRC_UNSBYTE) - 1; 


! Test to see if the Listing Line number exceeds the type 
! Line range. If it is, increments the source record number 
Listing line number and DST pointer, then returns. 


if (.LINE_NUM LEQ .LINENG? AND 
gg tNERO LEQ .HIGH_LINE_NUM) 
BEGIN 
MAP 
aSRC.DSTPTR: REF DSTSSRC_COMMAND; 
FORMFEED_COUNT, 
LENGTH, 
RECORD_ NUMBER; 


We have a range covering LINENO. 

If the Language does not count formfeeds as 
source, then the source correlation tables 
are counting formfeeds differently from 

the editor. We need to count the number 

of formfeeds so we can correct for this. 


CORD NUMBER = .SRC_REC + (.LINENO = .LINE_NUM); 
RMFEED_C : 


RE 
FO. OUNT = 
IF NOT .OBGSSRC_FORMFEED_FLAG 
THEN 

BEGIN 

LOCAL 


INPTR: BL OcKte BYTE) 
OUTPTR: BLOCKC8,BYTE) 
RFA_TABLE: Ref AF ATBL $BLOCKVECTOR(RFATBL_ENTRIES), 
SRCRAM: REF SNAM_DECL, 
SRCRAB: REF SRAB-DECL. 


STATUS, 
TXTRFA: VECTORC2); 


Open the file. 


DBGSSRC_OPEN_FILE(.SRC_DSTPTR, 
SFCBPTR> 
FALSE); '<< TRUE ? 


oe 


ne 


16-Sep-1984 :55 Ax-11 Otis s-32 V4.0-7 Page 21 
16-Sep-1984 95: ; 746 DEBUG. SRC) DBGSOURCE. 833; 31 . (6) 


: 6) £88 i , : Determine whether to read from an RMS file or a module in a source library. 
: 76 631 7 éRCNAM = .SFCBPTRCSFCBSL_NAMPTR) 

; oe 3 4 CASE. SFCBPTR SFCBSB_KINDJ FROM §F cBSK LRMSFILE TO SFCBSK_LBRFILE OF 
; 266 p 94 7 

s 76 95 7 

; 768 96 7 ! Read from an RMS source file. 

: 769 53 7 ' 

: 770 98 7 CSFCBSK_RMSFILE): 

; 7) 0899 BEGIN 

: i $901 

3: 776 94504 ! Set up the RAB pointer. 

3: 775 090 

3 77 0904 ERCRAB s » SFCBPTRESE CSL RABPTR] 

: 77 0905 8 RFA_TABLE F CBPTRESF CBSL RFATBLPTRI; 

3; 778 0306 IF “SF CBPTRE SF CBSL CORRE CNUMS EQL 1 

: 779 090 THEN 

; 780 0908 BEGIN 

3; (781 0909 9 STATUS = SFIND(RAB = .SRCRAB 

; (78 0910 9 IF NOT »STATUS THEN SIGNAL ( status): 

; 78 0911 9 RFA_TABLECO RFATB BLS 

: 784 0912 9 “iaBvetO ea RFRO); 

; 785 0913 9 RFA_TABLEL RrATaC Su RFAG) = 

3; 786 0914 9 . SRCRABLRABSW_RFAGI; 

: 787 0915 8 END; 

; 788 0916 8 

3; 789 0917 4 

3; 790 0918 ' Sequentially read from the first record to the desired record 
: 791 0919 8 number. 

:; 79 0920 

; 79 0921 SFCOPTALSE cost CURRECNUM) = 

3 794 09 é STAT wus s SREWIRD(RAB = MJ ACRA By: 

: 795 09 If NOT .STATUS THEN SIGNAL (. STATUS); 

3; 7% 0924 SACRABCRABSE_ RAC) = RABSC_SEQ; 

3; 797 0925 INCR I FROM ~SFCBPTRESF CSL _CURRECNUM] TO .RECORD_NUMBER DO 
3; 798 09 $ 9 BEG 

; 799 09 9 WHILE TRUE DO 

; 800 0928 10 BEGIN 

; 801 0929 10 STATUS = $GET(RAB = .SRCRAB); 

; 3 08 9 19 If NOT .STATUS 

; abe +4 § 19 SIGNAL (DBG$_UNAREASRC ,2,.SRCNAMCNAMS$B_RSL],.SRCNAMCNAMSL_RSA 
: 8 934 10 

; BOP §33¢ 10 ' Count records with formfeed in 

; 808 936 1 i formfeed count. Do not count them 

: 44 9 : ; toward RECORD_COUNT. 

: Bit 9 $ 1 if ( .DBGSSRE REC _BUFCO) EQL 12) AND 

: ie 940 } SRCRABCRABS$SQ_RSZ2) EQL 1) 

: B14 948 1 FORMFEED_COUNT = .FORMFEED_COUNT + 1 

: 15 1 ELS 

: 16 944 1 EXITLOOP; 

s 61 0945 9 ND; 


_ a 


i 
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igs-32 V4.0-74 Page 22 
2. 908-138% 96: $3: DEBUG. SRCIDBG OuR Ree «3951 . (6) | 
; 818 94 
; 819 309 3 
3 0 Rte 4 ' Update the current record number field in SFCB. Set up the buffer 
: 1 rH 2 : pointer and buffer Length. 
; 331 9 SF CBPTRCSF CBSL_CURRECNUM] = .RECORD_NUMBER + 1; 
: 5 33 § END; ' RMS file case alternative 
: B59 bess 
; H 3 328 f } Read from a module in a Source Library File. 
; Ha $54 7 CSF CBSK_LBRF ILE): 
; $3) 95 BEGIN 
3 3 ase 
3 tte 961 
; 8 096 ! If the current record number is beyond the desired record number, 
; 835 096 ' reset the current record to 1 and set the record file address to the 
3 S39 eg: : beginning of the module. 
; 838 Baee 8 If inate sctanente GTR .RECORD_NUMBER 
; 839 0967 8 one ™ 
3; 840 0968 9 
3; «841 0969 9 aL RYALO} = - SF CBPTRESF CBSL_CUR -RFAQ); 
; «484 970 9 TXTRE tabi tty: aa su. CUR. “RFAG); 
; «484 971 9 SFCB BPTRCSF CBéL ¢ 
: B44 0972 9 STATU BRSFIND (SF CBPTRESE CBSL LBRINDEXI, TXTRFA); 
: 845 0973 9 IF Not  hatus THEN SIGNAL(.STATOS) 
3; 846 0974 8 END; 
; 847 0975 «8 
; 848 0976 8 
; 849 097 ; ' Sequentially read from the current record to the desired record 
; 850 0978 ' number. 
; 851 0979 8 
: 826 0980 8 INPTRCDSCSW LENGTH) = SRCBUFSIZE; 
; 85 0981 8 INPTREDSCSA-POINTER)] = DBGS$SRC_REC Bur (03; 
> 854 0982 8 OUTPTR DSCSK_PO INTE ER) = DBGSSRC_REC Bur j; 
; 855 0983 8 INCR I FROM “SP EBPIR SF CBSL SCURRECNOR TO .RECORD_NUMBER DO 
3 526 0984 9 BEGIN 
; S2 985 9 WHILE TRUE DO 
; 858 43 10 BEGIN 
; 859 09 10 tr ant = pense RECORD (SF CBPTRESF CBSL _LBRINDEX], INPTR ,OUTPTR); 
: 860 0988 10 If NOT .STATUS 
5 He 04.94 + THEN 
3 § ze + SIGNAL (DBG$_UNAREASRC ,2, .SRCNAMCNAMSB_RSL),.SRCNAMCNAMSL_RSA 
; bea 0998 10 IF (.DBGSSRC_REC_BUFCO) EQL 12) AND i 
; 5 o4$ i) - ( OUTPTREDSCSw_ LENGTH) EQL 1) 
: 995 8 FORMFEED_COUNT = .FORMFEED_COUNT + 1 
3 H 4 1 - EXITLOOP; 
+ 871 0999 END; 
; § 1001 ! Update the current record number field in SFCB. Set up buffer 
: B74 1002 i pointer and buffer Length. 


| 
| 


M4 5 
vorso00 © 1x3 198e $S:i7:c6 — Edkaug. SacHoeesounce 1039; 1 Powe 35 


; 875 1993 ! 

; f | o% pi COPTRESECBSL_CURRECHUA) = ,RECORD_NUMBER ¢ 1; 
: 878 1006 7 

3 79 1 §$ 7 CINRANGE, OUTRANGE): 

; rt Ise 4 $DBG_ ERROR (' DBGSOURCE \DBGSSRC_READ_FILE*); 
Be INP “7 

3; 884 1 3 7 RECORD_NUMBER = .RECORD_NUMBER + .FORMFEED_COUNT; 
; 885 ' \3 6 END; 

3 as? 1015 ? Return the record number and the NAM block pointer 
3; 889 1019 6 NAMBLKPTRCO) = .SFCBPTRCSFCBSL_NAMPTR); 

: 890 1018 6 sRECNO = .RECORD_NUMBER; 

3; 891 1019 6 RETURN 

; «89 1020 6 

; 89 1021 g 

3; 894 10 § ELSE 

; 895 1023 6 

3 o38 19s 6 IF .DSTPTRCDSTSB_SRC_COMMAND] EQL DSTSK_SRC_DEFLINES_w 
; o38 1087 6 SRC_REC = .SRC_REC + .DSTPTRCDST$W_SRC_UNSWORD] 

; 900 1028 $ SRC_REC = .SRC_REC + .DSTPTRCDST$B_SRC_UNSBYTE); 
: 901 1089 ND: 

; 90 1030 5 

; 90 1031 5§ = .HIGH_LINE_NUM + 

3 aye 1936 : ME STPTRCOSTSB~ SRC E CORMAN)” EQL DST$K_SRC_DEFLINES_wW 

: 906 1034 5 DSTPTR = .DSTPTR + 3 

3: 907 1035 § ELSE 

: 908 1036 § DSTPTR = .DSTPTR + 2; 

; 909 1037 4 D; 

; 910 1038 4 

> 911 1039 4 

3 aig H : Any other command code constitutes an error in the DST. 

: 914 1048 4 CINRANGE.. OUTRANGE]: 

3: 915 1043 4 SIGNAL (DBG$_INVDSTREC); 

; 916 1044 4 

: 917 1045 4 TES; 

3 3i8 Hg END; ' End of WHILE Loop through commands. 
; 91 104 END; i End of INCE Loop through DST records. 
; 920 1048 

: 921 1049 

; : § 1999 If we fall through to here, we did not find the Line. 

$ 926 198 BUF _DESC(O) = 139; 

: 925 1 3§ BUF <DEStEI 13 = BUFFERC1); 

: 9 g 1054 T_FAO_OUT(BUF DESC, UPLIT BYTE(ZASCIC ‘Line 

7: 9 1055 DBe rh ORMAT™ “FAO_OUT(BUF_DESC, UPLIT BYTE(ZASCIC ‘ful? ). a TNENOD ; 

3; 9 4 1096 PBCSTORMAT™ “FAO_OUT(BUF-DESC, UPLIT BYTE(ZASCIC ° does’) 

: 9 105 DBGSFORMAT: FAQs OUT (BUF “DESC yPLit BYTE(ZASCIC * mot exist in module !AC*), .MODNAMEPTR); 
> 930 1058 BUFFERCO) BuF ~DESCCO); 

: 931 105 SIGNAL (DBG$ _WOLINKIK. T, BUFFER); 


; 932 1060 1 END; 


24 47 & 44 5C 45 43 § 55 4F 47 & . 
43 45 5 SF GF 564 SF i 4E 49 i? SF ; $3 : i dion 
24 47 & 44 5C 45 463 52 55 GF é 47 & 44 2 P.AAD 
4 4C 49 46 SF 46 41 45 ; SF 4 52 oge 
eee eae eae 
73 65 6F 66 7B P.AAG: 
20 6 69 20 7% 73 69 78 65 50 Se oF 6E § 1 1 P.AAH: 
RB 41 21 20 és be 95 64 6F 6D $090 
OFFC 00000 
SE FF2C CE 9E 0000 
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000000006 00 - : FB 00 6 
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-ENTRY 


55 A 
46 VY) 
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\ DBGSOURCE\<92>\DBGSSRC_LINE_TO_REC 20\ 


<27>\DBGSOURCE\<92>\DBGSSRC_READ_FILE\ 
AUIS \ 


<3>\!UL\ 
>\ 


does\ 
<24>\ not exist in module !AC\ 


X-11 BLi Ang 


EBUG.SR 


sNOWRT, 


SHR, 


SYSSFIND, SYSSREWIND 
SYSSGET 


DBGSCODE, 


. we Li 


NOWRT, 


242¢ Bp). wit 
DBGSSRC ii FLAG 


aye LI 
SRC 

srineri 

MODRAMEP 


REC 
10_TBL 
TR 
R, R2 


SHR, 


ai 
#2, DBGSSTA_SYMNAME 
SgtRo) 


MODNAMEP 


#16 
eas 


em 


sla 


‘roy ooo 
$$ 
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#104706 


anéthec 


TR 


SIGNA 
MODSRCTBL 


LINENO 


=o 


R 
Pp 


SIGNAL 


PTR, LENGTH 


PIC,0 


PIC.0 


-}? ree Save R2,R3,R4,R5,R6,- 


REC_PTR, DSTPTR 
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#167168 

+ LIBSSIGNA 
BGSSRC_REC “BUF , wi2 
4(SRCRAB), 1 

FORMFEED. COUNT 


sateen 48(R2) 
RECORD “NUMBER, 1, 37% 


4 
i RECORD _NUMBER 


na) TXTRFA 
Rea | inet 


R 
C_REC_BUF, INPTR*4 
p os Se ae OUTPTRe4 
R2).7R 
Bir2), 


bese “ 0-74 Page 28 
~$ep-19 $5 YAX=11 BL gs=32 v4.0-742_ Fi 
vos=000 1e20p-1986 13:17:46 — EDEaUG. SRCSDBGSOURCE -039: 1 5 
PUSHAB QUTPTR 
oe 9 OS : 
DD ; 
ALLS #3, LBRSGET_RECORD : 
renee se | 09 6 ROVE RO; STATUS ~~ 
EB OSE gies StAtUs, 4 : 0988 
at ace : 
7E 03 AS OA MOVZBL 3(SRCNAM), =(SP) ; 
corctooo RBS BR Hoa | 
#5, LIBSSIGNAL 
00900006 Bt 00000000" FF of i 44s ches DBSSRC REC BUF, #12 te 
01 38 AE Bt 00802 CMP OUTPTR, a : 
oc RE Ds 00398 NEL F ORMFEED_cOUNT 0995 
BRB ss 
BB 55 A £3 00 D 45: AOBLEO RECORD.NUMBER, 1, 438 88 
mh oe Se e6 09 6 468: ADDL? cont ED. COUNT, RECORD_NUMBER i 101 
Bc 6 AD D MOVE —32(RO), @NAMBLKPTR ‘ae 
BR FRR we Re ar 
a 04 ea a: 
« 83 11 Ooser BRB «50S am 
50 61 9A 0351 498: MOVZBL (RTD, RO : 
Ae 81 C1 00387 ADDLS ot nich LINE. NUM, LINE _NUM ¢ 1031, 
re = 2 20 AE EY 0085 BLBC_ 32(sP Pee ¢ 1032) 
53 03 €0 00 3 18: ADDL2 HS “ster = 
BEL: he ff enn oe 
1 : 
FcD6 (OBC 01 1C ree F199 i it: ACBL SMOBSRCTEL #1. COUNT, 38 : 40 
de BT AE 9 00 £8 NOVAB itt UiFERst "BUF DESC+4 i 1953 
4 : dowd 
ce at ee 2 
a a OBGSFORMAT_FAO_OUT : 
000000006 03 oD PUSH INENO i 1085 
cement} EF OF WB BAAR 
Aim | Blom. ie 
000000006 03 FB sf : 
00000099" EF oF P BUSH : 
08 FB OOSAD CALLS. a ~DBGEF onMAT _FAO_0UT 
000000006 00 o8 FB O0SAD CALLS vost 
oe : 
#3, “DBGSFORMAT_FAO_OU 
comms gg HRB Ee Aha ne. 19 
Pte : $0 AE OF O08CE PUSHAB 


~~ 


3 Routine Size: 


| 
| 


3 
16-Sep-1984 02:35:55 Ax-11 
1 ~300- 138% 95: 246 YoeauG.& 
1 OD D PUSHL #1 
00028E18 Br DD b PUSH #167446 
000000006 00 3 fe ne CALLS as° CTBsstcHNaL 


993 bytes, Routine Base: DBGSCODE + O1DA 
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ws 
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4 
DBGSOURCE ; 1b-se -1984 02:35:55 AX-11 Bliss-32 v4.0-74 Page 30 
v04- , 12-88-13 95: 746 YOEBUG. SRCIDBGSOURCE .83 31 . (3 
; 3 ¢ 196) ! GLOBAL ROUTINE DBGSSRC_LNUM_RANGE(MODRSTPTR, LOWLNUM, HIGHLNUM): NOVALUE = 
3; § 1908 1 ! FUNCTION 
2 1064 1! This routine accepts a Module RST Entry pointer as input and returns 
; 938 1065 1! the lowest and the highest Line numbers within that module as output. 
; 939 1208 1! It is called by the screen facility to determine the Line number range 
: ery ee : associated with the source display for a given module. 
$ oe8 1069 1! To perform its function, this routine scans through all the Source Line 
: 94 1070 1: Correlation DST Records for the specified module from beginning to end 
: eee ne : to determine the minimum and maximum declared Line numbers. 
; 946 1938 1 ! INPUTS ; 
3 947 1074 1! MODRSTPTR = A pointer to the Module RST Entry of the module whose mini- 
: ase One : mum and maximum Line numbers are to be looked up. 
: 950 1077 1! LOWLNUM = The address of a longword to receive the lowest Line number 
: 4} 178 ; in the module. 
: 988 1080 1! HIGHLNUM = The address of a longword to receive the highest Line number 
; 954 1081 1! in the module. 
; 955 1086 1! 
; 956 1083 1 ! OUTPUTS 
: 957 1084 1! LOWLNUM = The Lowest Line number in the module is returned to the 
; 928 ee : } LOWLNUM Location. 
: 960 1087 1! HIGHLNUM = The highest Line number in the module is returned to the 
; 961 1088 1! HIGHLNUM Location. 
; 996 1089 1! 
3; 1090 1 
: 964 1091 § BEGIN 
; 965 1936 
: 966 1093 2 MAP 
3; 967 1094 2 MODRSTPTR: REF RSTSENTRY, ' Pointer to Module RST Entry ‘ 
3; 968 1095 2 LOWLNUM: REF VECTORC1,LONG) ' Pointer to low Line number location 
: oer 4 § HIGHLNUM: REF VECTORL1,LONG; ! Pointer to high Line number location 
; 971 1098 § LOCAL 
; pA 44 DSTPTR: REF DSTSSRC_COMMAND, Pointer to the Source File Correlation 
: ! omman 
; 974 1101 DSTREC_PTR: REF DSTSRECORD, ! Pointer to the Source File Correlation 
3; 975 1106 ‘ T recor 
: 976 110 HIGHEST_LNUM, ! Highest Line number in module so far 
; 977 1198 LENGTH, ' The length of the current DST record 
3; 978 1105 LINE_NUM, ! The current Listing Line number 
: 979 1106 LOWEST_LNUM ' Lowest Line number in module so far 
; 980 1107 MODSRCTBL: REF VECTORC,LONG); ' Pointer to the List of Source File 
; 981 1108 : Correlation DST Record pointers 
; 98 1109 ! for the current module 
:; 98 1110 
3; «984 1111 
; «985 ni 
; 986 111 ' Make sure Module RST pointer is not null. 
; 987 1114 ! 
; 43 1332 IF .MODRSTPTR EQL 0 
; 990 119 $DBG_ERROR( "DBGSOURCE\DBGS$SRC_HIGHEST_LNUM 10°); 
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: Make sure Module Source Table pointer in module's Module RST Entry 
points to a List of Source File DST Record Pointers. 


LOwLNUMEO} = 0; 
HIGHLNUMLO) = 6; 
IF .MODRSTPTRCRSTSL_MODSRCTBL] EQL 0 THEN RETURN; 


Initialize flags and counters. 

LINE_NUM = 1; 

LOWEST _LNUM = 1000000000; 

HIGHEST_LNUM = 0; 

Loop thru Module's Source Line Correlation DST Records. 


MODSRCTBL = .MODRSTPTRCRSTSL_MODSRCTBLI; 
— FROM 1 TO .MODSRCTBLCOJ DO 


Get Source Line Correlation DST Record pointer. 


DSTREC_PTR = .MODSRCTBLC.COUNT); 
IF_.DSTREC_PTRCDST$B_TYPE) NEQ OST$K_SOURCE 


N 
SDBG_ERROR( * DBGSOURCE\DBGSSRC_HIGHEST_LNUM 20'); 


! Scan through the Source File DST Record to decode the Source File 
! Correlation Commands. Pick up the length of this DST record and set 


DSTPTR to point to the first command entry. 


LENGTH = .DSTREC_PTRCDST$B_LENGTH); 
DSTPTR = DSTREC_PTRCDSTSA_SRC_FIRST_CMD); 
WHILE (-DSTPTR = .DSTREC_PTR) “LEQ .CENGTH DO 


! Pick up the command code defined in Source File DST Record 
! and use it as a CASE index so each significant command code 
n 


' 

' 

can be interpreted ividually. 

CASE -DSTPTRCDST$SB_SRC_COMMAND) FROM DSTSK_SRC_MIN_CMD TO 
set DSTSK_SRC_MAX_CMD OF 


Declare Source File Command. 


CDST$K_SRC_DECLFILE): 
DSTPTR-= .DSTPTR + .DSTPTRCDSTS$B_SRC_DF_LENGTH] + 2; 
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DEBUG.SR 
Set Source File Command. 
COSTSK_SRC_SETFILE): 

DSTPTR™= .DSTPTR + 3; 
Set Source Record Number Long Command. 
CDSTSK_SRC_SETREC_LJ: 

DSTPTR™= .DSTPTIR + 5; 
Set Source Record Number Word Command. 
CDSTSK_SRC_SETREC_W): 

DSTPTR'= .DSTPTR + 3; 
! Set Line Number Long Command. Set the current Listing Line 
number. Advance DSIPTR. 
COSTSK_SRC_SETLNUM_L): 

BEGIN 


LINE NUM = .DSTPTRCDSTSL_SRC_UNSLONG); 
Sate = .DSTPTR + 5; 


Set Line Number Word Command. (More compact form). 
CDSTSK_SRC_SETLNUM_W): 
BEGIN 


LINE NUM = .DSTPTRCDST$W_SRC_UNSWORDJ; 
aie = .DSTPTR + 3; 


! Increment Line Number Byte Command. Increment the current 
! Listing Line number by a byte value given in this command. 
' Advance DSTPTR. 


CDSTSK_SRC_INCRLNUM_B): 
BEGIN 


LINE_NUM = .LINE_NUM + .DSTPTRCDSTSB_SRC_UNSBYTE); 
DSTPTR = .DSTPTR™+ 2; 


: Do not skip the form feed. 
COSTSK_SRC_FORMFEED): 

DSTPTR™= .DSTPTR + 1; 
Define N Separate Lines Word Command. 
CDSTSK_SRC_DEFLINES_w): 
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Define N Separate Lines Byte Command. 

{DST$K SRC_DEFLINES_B3: 
LOWEST_LNUM = MIN(.LOWEST_LNUM 
LINE_NOM = .LINE 


N 
HIGHEST_LNUM = MAX( 
DSTPTR = .DSTPTR + 2; 


4 

4 

4 

4 

4 

: 

é 

4 

4 

4 

4 CINRANGE, OUTRANGE): 

2 BEGIN 
SIGNAL (DBG$_INVDSTREC); 

4 END; 

6 

4 

1 


TES; 
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to the caller. 

IF .LOWEST_LNUM GTR .HIGHEST_LNUM THEN LOWEST_LNUM = 0; 
LOWLNUMCOJ"= .LOWEST_LNUM; 

HIGHLNUMCO) = .HIGHEST_LNUM; 

RETURN; 


Be Se Se Ge Ge Fe Se Ge FF SF Se SH Se SH Se Be Ss Se Os Oe Se Se SH SF Se Ss Se Se Ge Se Se F5 Se SHS Ss Sees ee ee tee 
eee ee ee ee ee ee ee ed ed nd nd od od 
ec et ec ct ee ce ee ce cel el el cel cl eel cel cel cell cell cel el cell cel cal el el ccd cel cll lls call cl ls 


Dt et ek et et kb oh ed 
Oa 8 a kk kd ad at do od 


Roponononofnonononofonofory 


NNNNOOO 


-PSECT DBGSPLIT,NOWRT, 
QO9A P.AAI: .ASCII \!DBGSOURCE\<92>\DBGS$SRC_HIGHEST_LNUM 10\ 


4 47 42 44 SC 
5 4E 4C SF 54 


4 47 42 44 ef 
5 4E€ 4C SF 564 


43 52 55 

45 48 47 49 
55 
47 
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-PSECT DBGSCODE .NOWRT, 


Be 93:77:28 


iy'sh 
-LTNE_RuM 


.LINE_N 
uM + .DSTPTREDST$B SR 
HIGHEST_LNUM, .LINE_RuM = 1 


Any other command code constitutes an error in the DST. 


' Return the lowest and highest Line numbers that we found. 


END; ! End of WHILE Loop through commands. 
END; ! End of INCR Loop through DST records. 


Then return 


SHR, 


SHR, 


PIC,0 


B8 
Ohrs P.AAJ: .ASCII \!DBGSOURCE\<92>\DBGSSRC_HIGHEST_LNUM 20\ 
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‘ppasounce 1S-sep-1964 02:55:55 Yanett BLing= 52 vi. O-742 Page 35 
: | 


B4 11 QOOA BRB $ 311 
53 01 Ae i A 148: MOV ZL StosteTR). LINE_NUM : i 
39 01 A2 9A 15$: MOVZBL (DSTPTR), RO ‘1 3 
£6 B8 ADDL2 RO, LINE_NUM : 
BB BRB : 1219 
: 06 BD 16$: INCL  DSTPTR + 1226 
A BF BRB 6 : 
59 DO 000C1 178:  MOVL §_LOWEST_LNUM, RO + 1233 
5 D1 000C4 CMPL =soRO,._ LIRE_NUM : 
1 (7 BLEG)~—Sséd&S : 
50 D 9 MOVL LINE NUM, RO ; 
p CC 18$:  MOvL RO, COWEST_LNUM ; 
0 01 A ¢ 6 CF MOVZWL 1(OSTPTR),~RO + 1234 
5 g 003 ADDL2 RO LINE ; 
1 FEO F 0006 MOVAB =1(R3), Ri + 1235 
0 56 DO OO0DA MOVL HIGHEST_LNUM, RO F 
1 50 01 00000 CMPL =e RO, RV : 
18 O0E BGEG)~=Sts«éd129288 ; 
50 1 00 000E MOVL 1, RO ; 
56 Q 00 O0E5 19$:  MOVL RO. HIGHEST_LNUM : 
52 03 CO OOOEB 20$:  ADDL2 #3. DSTPTR + 1236 
Ag 11 000E8 BRB 3 + 1164 
59 55 DO OOOED 21$:  MOVL §LOWEST_LNUM, RO > 1264 
5 50 D1 OO0F CMPL RO, LINE_NUM 3 
Q 15 OOF BLEG ; 
50 06 OOF MOVL LINE_NUM, RO : 
55 50 00 000F8 228:  movL RO, COWEST_LNUM ; 
30 01 A2 9A OOOFB MOVZBL 1 (DSTPTR),~RO + 1245 
5 5 60 OOFF ADDL2. R LINE NUM : 
51 FEO t 0102 MOVAB 1(R3), Ril : 1246 
50 56 DO 00106 MOVL HIGHEST_LNUM, RO F 
51 30 D1 001 CMPL =e RO, RI : 
18 01 C BGEG }40=s-«23$ ; 
50 1 00 001 MOVL 1, RO : 
56 0 00 011 238: MOVL. RO. HIGHEST_LNUM ; 
52 02 CO 00114 248: ADDL2 #e DSTPTR > 1267 
8A 11 O17 BRB 11§ > 1156 
FF20 57 01 68 F1 00119 25$: ACBL =‘ (MODSRCTBL), #1, COUNT, 4$ : 1138 
56 D1 OO11F CMPL LOWEST_LNUM, HIGHEST_LNUM > 1268 
02 15 00122 BLEG 6$ : 
D4 00124 CLRL  LOWEST_LNUM : 
08 BC 55 00 00126 268:  MOVL §LOWEST™LNUM, @LOWLNUM > 1269 
oc «BC 56 > ot 7 move HIGHEST_LNUM, @HIGHLNUM : } i 


; Routine Size: 303 bytes, Routine Base: DBGSCODE + 0588 
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GSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 
voe 122836-15 4 9337 746 DEBUG. SRCIDBGSOURCE.039; 1 . BS 
; ROUTINE DBGSSRC_OPEN(SFCB_KIND,SRCDSTPTR,PROPER_FLAG) = 


FUNCTION 
This routine is called by DBGSSRC_OPEN_FILE. It actually does the 
open for RMS or LBR file. 


The opened file is then checked to see if it is the right file. This 

consists of checking the Creation Date and Time and several other file 
attributes. If this search fails to find the desired file, the proper 
flag is set to indicate the status. If file could not be open at all, 
then the returned status from RMS routines is returned. 


If the desired file is a module within a source Library, then checking 
is modified to check the i terory in the given directory which has a 
module of the desired name which in turn has the proper insertion date. 
If this checking fails to find the desired module in the Library, 

the proper flag is set to indicate the proper module is not found. 

If no Library at all could be opened, then status from LBR is returned. 


INPUTS 
SFCB_KIND = Indictates whether the file to be opened is an RMS file 
(SFCB_KIND = 2) or an LBR file (SFCB_KIND = 5). 


SRCDSTPTR = Pointer to the Declare Source File DST command which declares 
the file to be opened. 
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OUTPUTS 
PROPER_FLAG = 0: Proper file is found, 
non-0: file or module in the Library is not proper file. 
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The ‘proper’ is defined as the first version with the 
same creation date and time, the same file size, and 

the same record format and file organization as specified 
in the Source File Correlation DST Record. The ‘‘proper 
file is found means such file is found during the search 
directory dirl, .... difN process. If the ‘proper 
version of the file is not found in any of dirl, .... dirN, 
the latest version of the file in the first directory on 
the List to have a version of it is used. A warning is 
issued. If no file can be found at all, a warning 
message to this effect is issued. 
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: STATUS - returned value from RMS or LBR, return value for this routine. 
1 
: BEGIN 
195 P 
1 PROPER_FLAG: REF VECTOR(1), ! Flag set to indicate the status of 
19 } the opened file 
198 SRCDSTPTR: REF DSTSSRC_COMMAND; ! Pointer to the Declare Source File 
199 5 : DST command 
i 
4 
§ 3 LOCAL . . : 
0 BUFDESC: BLOCK(8,BYTE), ' String descriptor, it contains length 
204 0 : and address of the buffer 
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BUFLEN, 
DSTCDT: REF VECTOR(2), 


LIBMOD_PTR: REF DSTSSRC_CMDTRLR, 


MHDPTR: REF BLgcKc BYTE. 


MODPTR: BLOCK 
SRCXABDAT: REF $XABDAT_DECL, 
SRCKABFHC: REF $XABFHC"DECL, 


US, 
TXTRFA: VECTOR(2) 
XABCDT: REF VECTORC2), 


XABRDT: REF VECTOR(2); 


1enSep-1986 $3:17:06 


i Pointer to the creation date and 


4 


module header 
ime 


in the DST Declare Source File 


comman 

Points to the Source peereey Module 
name in the Source File 
Correlation DST Record 

Points to Module Header 


' Length and address of module name 
' XABDAT for RMS file 
! XABFHC for RMS file 


RMS status or LBR status 
The RFA of the module text in library 


! Pointer to the creation date and time 


n the RMS XAB bloc 
Pointer to the revision cote and time 


in the RMS XAB bloc 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGSOURCE .B3 


' Contains the Length of the returned 


PROPER_FLAGLO) = 0; 
CASE. SFCB_KIND FROM SFCBSK_RMSFILE TO SFCBSK_LBRFILE OF 


WA 


morro 


AU —SOSNOMN MT SOD NOMP UI MODS ORR 


! Open an RMS source file and check its attributes to see if this is 
the exact file the DST Declare Source File Command specifies. 


PEAAMAAMNINMIIN & BB BPP EEE PAWN 
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WAwws 
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Determine whether we have an RMS or LBR file. 


CSF CBSK_RMSFILE): 
38 $0 BEGIN 
9 
ma 36 Open the file and connect the RAB to the FAB. 
<g 36 STATUS = SOPEN(FAB = .DBGSSRC_SFCB_PTRCSFCBSL_FABPTR)); 
4 6 IF NOT .STATUS THEN RETURN .STATUS; 
44 7 STATUS = SCONNECT(RAB = .DBGSSRC_SFCB_PTRISFCBSL_RABPTR)); 
cg 7 IF NOT .STATUS THEN RETURN .STATOS; 
4 7 
48 74 ' Check that the file has the proper creation date and time. (We 
49 75 ' also accept a mat a. revision date and time for compat ips lity 
9 4 with the usage prior to VAS V4.0.) If not, set PROPER_FLAG to 1. 
3¢ 7 SRCXABDAT = -DBGSSRC_SFCB_PTRESECBSL_XABDATPTR]; 
5 7 SRCXABFHC = .DBGSSRC_SFCB_PTRISFCBSL_XABFHCPTR); 
54 0 XABCDT = SRCXABDAT xhpso_COr 3 
55 1 KABRDT = SRCXABDATLXABSQ_RDTI; 
36 ‘ DSTCDT = SRCDSTPTRLDST$Q SRC _OF_RMS_CDT) 
5 IF (.XABCDT NEQ Betcot | ARBCOTET} NEQ pereR TED AND 
38 ¢ — NEQ .OSTCOT OR .XABRDTL1] NEQ .OSTCDTL1)) 
60 Hy PROPER_FLAG(O) = 1; 
61 


4 
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3: 126 1 

: 126 1 B9 ' Also ghect that the tte byte size and record format and file 
3: 12646 1 ; organ gy S as specified in the DST. If not, set PROPER_FLAG 
3 : 65 : 4! to 2, 5, or 4. 

$ : ef ; 38 iv zSACHABFUCCHABSL EDK NEQ .SRCDSTPTRCDSTSL_SRC_DF_RMS_EBKI 

5 ; 4 : 95 PROPER_FLAG(O) = 2; 

3 } a! ; 3 FF COTE NRE FED NEQ .SRCDSTPTRCDSTSW_SRC_DF_RMS_FFBI 

3 } ie Fa PROPER_FLAG(O) = 3; 

3 ‘ Le 1401 IF .SRCXABFHCCXABSB_RFO] NEQ .SRCDSTPTRCDSTS$B_SRC_DF_RMS_RFO) 

31 i$ 1208 PROPER_FLAG(O) = 4; 

3; 1278 1404 

3; 1279 1405 END; 

3; 1280 1406 

3; 1281 1407 

3 1 Hy 1408 ' Open an Source Library File. Then look up and open the desired 

3 \s6 1409 ! module within that source Library. Also compare the module's 

: 1284 1410 ' inseration date and time with that in the DST Declare Source 

3; 1285 1411 ' File command. 

3; 1286 aig H 

3; 1287 141 CSF CBSK_LBRFILE): 

3: 1288 1414 BEGIN 

3: 1289 1415 

3; 1290 12y8 

3 44 it Open the desired source Library. 

3 1238 1419 STATUS = LBRSINI_CONTROL (DBG$SRC_SFCB_PTRCESFCBSL_LBRINDEX), 

: 1294 1420 UPLIT(LBRSC_READ) UPLIT(LBRSC_TYP_TXT), -DBGSSRC_SFCB_PTRCSFCBSL_NAMPTR)); 
3 1295 1421 IF NOT .STATUS THEN RETURN .STATUS; 

3 1296 14 g STATUS = LBRSOPEN(DBGS$SRC_SFCB PTRESFCBSL_LBRINDEX)); 

3: 1297 14 IF NOT .STATUS THEN RETURN .STATUS; 

3; 1298 1424 

: 1299 1425 

3 : : 1 $ H Look up the desired module and open the module header. 

3 1308 1428 LIBMOD_PTR 

: 130 1429 = CDSTPTRCDSTSA_SRC_DF_FILENAME) + .SRCDSTPTRCDSTSB_SRC_DF_FILENAME); 
3 1 1430 MODPTRCDSCS$W_LENGTH) = LTB PT DS TSB oRC Ort IBRODNANE 3 

: 1305 1431 MODPTRLDSCSA_POINTER] = LIBMOD PTRLDOSTSA_SRC_DF_LIBMODNAME J; 

31 14 ; STATUS = LBRSLOOKUP_KEY(DBGSSRC_SFCB_PTRESFCOSL-LARINDEX) ,MODPTR, TXTRFA); 
3 : oy 1? IF NOT .STATUS THEN RETURN .STATUS; 

3; 1309 1435 

: : 19 16 $ Get module's header information. 

3: 1 ig 1438 BUF DESCCDSCSW_LENGTH) = SRCBUFSIZE; 

3: 131 1439 BUF DESCCOSCSA_POINTER] = DBGSSRC REC _BuF £01: 

3 13146 1440 STATUS = LBRSSET MODULE (DBGSSRC_SFCB_PTR SF CBSL_LBRINDEX),TXTRFA, 
3 1315 1441 BUF DESC ,BUFLEN); 

:1 16 144 IF NOT .STATUS THEN RETURN .STATUS; 

; 131 144 

; 1518 1444 


voe=000. Heiser Q3H9:88 WAGE S45GeBBanhe P24 


1 ' Save the module's start Record File Address (RFA) in the Source 
: File Control Block. 

5 DBG$SRC_SECB_PTRESECBSL CUR_RFAO = -TXTREALO); 
DBGSSRC_SFCB_PTRUSFCBSW_CUR_RF AG TXTRFAL1); 


' Check the module insertion date and time. If it is not the same 
! as ghet in the DST Declare Source File Command, set PROPER_FLAG 


R = DBGSSR ance Purl 
T= ShepstPrREDSTS0.3 
ABCDT oitog NEQ eps Teore 


PROPER_FLAG(O) = 1; 
END; 


}; 
ae 
O5"OR “OR” wT er NEQ .DSTCDTC1) 


} Any other kind of Source File Control Block is an internal error. 


CINRANGE, OUTRANGE): 
$DBG_ ERROR ( ' DBGSOURCE \DBGSSRC_OPEN'); 


TES; 
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!' The source file or module was m yy | opened pi chou the file 
attributes (date and time, etc.) may not have matched those in the 


ke et ee a a a ad dd 
i a kk a a a a dd 
Sade ale ele ele neil ek tak taal Dek al taal Dad De al ek Dak Sek ak el ak ek ek a ak te a a 
DNS NSIS NS SIA AAA AAAAAA MMIII 
SOONA NEW (QO VODNAUES WN (OVO OVNOAUE WO OONOu 


$2 } ! DST. Return the Last status we got from RMS or LBR. 
33 : RETURN .STATUS; 
35 1 END; 


-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 
-BLKB 2 
ONG 1 


ONG 4 
24 47 42 44 SC 45 43 52 55 4F 53 47 4g eASCII <22>\DBGSOURCE\<92>\DBGSSRC_OPEN\ 
4E 45 50 4F SF 4 


-EXTRN SYSSOPEN, SYSSCONNECT 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


O1FC 00000 DBGSSRC_OPEN: 
a Save R2,R3,R4,R5.R6,R7,R8 


Le ec ee 
6 oc ac MOVL PROPER_FLAG, R6 


me i 


1274 


1354 


—_— 


4 
GSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 
OBE 12-8601 382 95:73:22 DEBUG. SRC IDBGSOURCE .B3 31 
66 04 00017 CLRL = (RO) 
01 2 04 AC CF 00019 CASEL SFCB_KIND, #2, #1 
008s 001 1E 1$: «WORD as-is. 
58 0D 2 PUSHL Rs 
1 OD 4 PUSHL # 
00028362 8F ODD 6 PUSHL #164706 
000000006 00 3 FB 0 g CALLS #3, LIBSSIGNAL 
50 67 00 6 2s: MOVL DBGSSRC_SFCB_PTR, RO 
18 AO OD 00037 PUSHL  24(RO) 
000000006 90 gi Fe 0 A CALLS #1, SYSSOPEN 
8B 9 E 41 BLBC STATUS, 10 
51 67 00 00044 MOVL DBGSSRC_SFCB_PTR, R1 
1¢ Al. DD 00047 PUSHL (R1) 
000000006 99 gi FB OO004A CALLS #1, SYSSCONNECT 
9 : £9 00051 BLBC STATUS, 11$ 
52 é 00 0054 MOVL dacs RC_SFCB_PTR, R2 
51 34 A2 D0 00057 MOVL 6(R2), SRCXABDAT 
55 8 A p0 0058 MOVL  40(R2). SRCXABFHC 
53 14 «Al t 005F ROVAB 20(R1), XABCDT 
51 oc C 90063 ADDL2 #12, XABRDT 
54 08 AC DO 00066 MOVL SRCOSTPTR RG 
32 05 A& 9E 0006A MOVAB 5(R4), DSTCDT 
6 3 D1 0006E CMPL  (XABCOT), (DSTCDT) 
7 12 00071 BNEG © 3$ 
04 A2 04 A3 D1 00073 CMPL  4(XABCDT), 4(DSTCDT) 
OF 13 00078 BEQL «6=sS$ 
62 61 D1 OOO7A 3$ CMPL (XABRDT), (DSTCDT) 
07 12 00070 BNEG 4$ 
04 A2 04 Al D1 OO07F CMPL  4(XABRDT), 4(DSTCDT) 
03 13 00084 BEQL «=s«S$ 
66 01 00 00086 4s: MOVL #1, (R6) 
OD AG 10 AS 01 00089 5$: CMPL  16(SRCXABFHC), 13(R4) 
03 13 OO8E BEQL © 6$ 
66 02 Dd 000 MOVL #2 (R6) 
11. AG 146 AS B61 00093 68: CMPW g (SRCXABFHC), 17(R4) 
05 13 00098 BEQL 
66 0 p 009A MOVL #3, (R6) 
13 AG 08 AS O91 9090 7$: CMPB B(SRCXABFHC), 19(R4) 
01 12 000A BNEQ $ 
04 000A4 RET 
bb 04 DO 000AS 8S: MOVL #4, (R6) 
04 000A RET 
51 67 00 000A9 9S: MOVL DEGSSRC_SFCB_PTR, R1 
20 Al DD OAC PUSHL (R1) 
FC AB 9F OOOAF PUSHAB P.AAL 
F8 AS 9F 000B PUSHAB 
3¢ «=O Also9F «0008 SHAB 60(R1) 
000000006 90 4 FB CALLS #4 LBRSIN CONTROL 
0 €£ BF 10$ BLBC. STATU 
7E é ¢ C1 ce ADDL3 #60, DAGSSRC_SFCB_PTR, -(SP) 
000000006 00 1 Fe ¢ CALLS #1, LBRSOPEN 
O.€ (CD 11$: LBC STATUS, 14 
4 08 AC BO D MOVL RCDSTPTR, R4 
1 4 A&G 9A 000D4 MOV ZBL O«R », R 
1 15 A641 9E 00008 v (RQ) ERI}, LIBMOD_PTR 


vy Nw 
co on 


chet} 


iB 

DassouRcE 1erSep-tobe 19:17:46 — EdeeuG. SRcSDBGSOURCE -039; 1 
(L 
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of AE 61 98 000DD MOVZBW (LIBMOD_PTR), MODPTR 
1 AE 01 Al 3 E1 MOVAB R1), MODPTR+4 
4 AE OF E6 PUSHAB TRFA 
10 AE 9F OO0E PUSHAB 
7E ? ¢ C1 OO0E ADDL3 ae "08 SSAC off <2 PTR, =(SP) 
000000006 00 Fe OF CALLS KEY 
49 0 £9 000F BLBC 
16 AE 0100 8F 80 OFA MOV statu Sault FDESC 
18 «AE 04 A? 9E 19 MOVAB DBGSERC. _REC_BUF, BUFDESC+4 
5E pd 1 PUSHL 
18 AE 9F 0010 PUSHAB Urpesc 
OC AE OF O10, PUSHAB TXTRFA 
7E 67 3¢ ¢1 00100 ADDL3 #60, DBGSSRC_SFCB_PTR, -(SP) 
000000006 00 04 FB 0111 CALLS #4 LBR SET_MODULE 
¢8 30 £9 00118 128: LBC TATUS, 14$7 
1 67 DO O18 MOVL bacssne. 358 PTR, R1 
34 OAT 04 AE DO 11 MOVL 2(RT) 
38 OAT 08 AE BO 001 MOVW THTREAS« 56(R1 
51 04 A? SE 00128 MOVAB  DBGSSRC_REC BUF MHDPTR 
53 08 Al 9E 0012C MOVAB ith RCE CDT 
52 05 Ad 9E 00130 MOVAB 5(R4). DSTCDT 
62 63 D1 00134 CMPL 3(R4) DS (DSTCDT) 
07 12 00137 BNEG 13$ 
04 A2 04 A3 D1 00139 CMPL 4(KABCDT), 4(DSTCDT) 
03 13 0013€ BEQL 14$ 
66 01 pO 00140 13$:  MOVL #1, (R6) 
04 00143 14$: = RET 


:; Routine Size: 324 bytes, Routine Base: DBGSCODE + O6EA 


; 1355 1481 1 
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DBGSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Pa 42 
vOe-000 10-3501 98¢ 93:7 746 DEBUG. SRCIDBGSOURCE .035; 1 re (9) 
3 ROUTINE DBGSSRC_OPEN_FILE(FILDSTPTR, SFCBPTR, STEP_FLAG): NOVALUE = 
9 


FUNCTION 
This routine opens a specified source file (unless the file is already 
Spened and sets up the corresponding Source File Control Block so that 
the file can be read with mupooarens calls on DBGSSRC_READ_FILE. In the 
process, it applies all source \regtory search rules to make sure it 
opens the file in the directory desired by the user. 
The routine starts by searching the List of Source File Control Blocks 
for the input DST pointer. If such a control block is found, the file 
is atready open and the Source File Control Block (SFCB) pointer can be 
returned my ee The SF s moved to the Most Recently Used posi- 
tion in the doubly Linked SFCB List before DBGSSRC_OPEN_FILE returns. 


an SFCB must be allocated for this file. This is done by 
finding the Least Recently Used SFCB and closing the file using that 
control block (if any). The SFCB is then moved to the Most Recently 
Used position. Next, the Source pivectery Search List for the current 
module (which “| be the default search List) is found in the Linked 
List pointed to by DBGSSRC_DIR_LIST. 


70 
Otherwise 


WWANWWWWiww 
> 


ODODoNNaNNNN 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

: At this rttees the routine is reeks to search all directories on the 
: List to locate the desired source file. for each directory, it does 
: a SPARSE and loops over a $SEARCH aysee service. Each file found by 
: SSEARCH is checked to see if it is the right file. This consists of 
: checking the Creation Date and Time and several other file attributes. 
: If this search fails to find the desired file, the first file returned 
by SSEARCH for the first directory on the List is used even though its 
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date and time or other attributes may be wrong. An informationa 
message is signalled in this case. If no file at all could be found, 
an error message to that effect is signalled. 


WAWw 


If the desired file is a module within a source library, the search is 

modified to find the first ser ery in the directory List which has a 

module of the desired name which in turn has the proper insertion date. 

If no Source pirectery Search i fst was specified for this module (either 
», the file name as it appears in the Declare 


errocety or by defaul 
ile DST command is taken to be the file we want to open. 


Source 


Once the desired file has been identified, that file is opened via the 

RMS SOPEN and SCONNECT services. Or, if the source file is a module in 
a@ source btorery. the Library and its module are opened via the appro- 

priate LIBRARIAN (LBRSxxx) calls. OBGSSRC_OPEN_FILE then returns. 


The routine actually does the open and verify the attributes is in 
*“DBGSSRC_OPEN”’. 


INPUTS 
FILDSTPTR = A pointer to the Declare Source File command in the Source 
File Correlation DST Record which declares the source file to 
be opened. rere command includes the desired file name and 
other file attrib 


SFCBPTR = A longword location to receive a pointer to the Source File 
Control Block set up for the desired file. 


AAA AA AMI PIPIPININININPININIDYD 2 9 9 | DOT COCO OCOCOCOOVOOOOOOOOMWMMcceoDcDCD 
DNA NEW" OODWOUNE WIN (OOO NOA VE WN $$ O DOONAN WR) 0 OD NAUSEA "OVO ONOUL WT 
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a a ka a a a aaa a at a et 8 = a 2 a 2 2 2 ss 
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5 
18-sap-19 4 35:55 AX-11 Bliss-32 v4.0-74 Page 43 
14-Sep-1984 95:7 246 DEBUG. SRC ]DBGSOURCE .B3 31 . (9) 
3 ¢ 
2 STEP_FLAG = Flag set to true to indicate the call is from STEP command. 
4 ' OUTPUTS 
4 ! SFCBPTR = A Pointer to the Source File Control Block set up for the 
2 : opened source file is returned to SFCBPTR. This prioter 
34 : can then be used when Later calling DBGSSRC_READ_FILE. 
4 
54 BEGIN 
54 
22 MAP 
5 FILDSTPTR: ! Pointer to the Declare Source File DST 
55 REF DSTSSRC_COMMAND, : command which declares the file 
: to be opened 
SFCBPTR: REF VECTOR(1); ' Pointer to longword to receive the 
: Source File Control Block pointer 
LOCAL 
BAD_FILE, ! Flag to indicate there is a bad 
! ile stuck in the SFCB 
BLINK: REF SFCBSBLOCK ! Backward Link 
DEFAULT: VECTORCSRCBUF SIZE BYTE), ' Contains Default File Name 
' a | and filename for RMS 
FIRST_FILE: VECTORCSRCBUFSIZE,aYTE), Contains first file returned FROM 


} SEARCH the directory List 
FIRST_TIME, Flag set to indicate first time S$SEARCH 
FLINK: REF SFCBSBLOCK ' Forward Lin 
LIBMOD_PTR: REF DSTSSRC_CMDTRLR,! Trailer field in the Declare 


Source File Command 
LRUPTR: REF SFCBSBLOCK, Pointer to Least Recentiy Used Source 
PROPER_FLAG, 


le Control Block 
Flag set to speteate proper file/module 
s 
SDSL_PTR: REF SDSLSHEADER, 
SDSL_DIRPTR: REF SDSLSENTRY, 


s use 

Pointer to Source Directory Search 
List Header Block 

Pointer to Source Directory Search 


List Entry 
Indicate SFCB used for RMS file or 


SFCB_KIND, 
Source Library file 
SRCFAB: REF S$FAB_DECL, FAB for RMS file 
SRCNAM: REF SNAM_DECL, NAM for RMS file 
STATUS; RMS routine status 


In here there is a case that the file may not be available. 

If this file is not available, then signal the way 

out now, when the handler catches this signal, unwinds, so the normal 
operation will continue on -- for example, if stepping by inst., we do 
not want to see the message coming out for each step when the tile 

is not available for the source. 


STEP_FLAG 
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BEGIN 
IF (.DBGSSRC_SFCB_PTRCSFCBSB_KIND) EQL SFCBSK_FILE_UNAVAIL) AND 


5 
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MOL 000 easeen tae 98:99:28 HONe ds She sesceonmce ass. 1 oe 9} 
ej DBGSSRC_SFCB_PTRESFCBSL_DSTPTR] EOL .FILDSTPTR) 


SIGNAL (DBG$_F ILEUNAL); 
END; 
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' Check to see if the gives file is the Most Recently Used file. If it 
is, simply return. There is no need to reorder the SFCB List. 


IF (.DBG$SRC_SFCB_PTRCSFCBSB_KIND] EQL SFCBSK_RMSFILE OR 
-DBGSSRC_SFCB_PTRLSFCBSB_ KIND) EQL SFCBSK LBRFILE) AND 
y{:DBGSSRE_SFCB_PTR SFCBSC_DSTPTR) EQL .FICDSTPTR) 
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BEGIN 
SFCBPTRCO] = .DBGSSRC_SFCB_PTR; 
RETURN; 


Start at the location Poe to by DBGSSRC_SFCB_PTR and circle thru the 
doubly Linked List SFCB to see if the desired file is already on the 
list. If it is already on the List, move it’s Source File Control Block 

to the Most Recently Used position (which is pointed to by DBGSSRC_SFCB_PTR) 
and then return. 


BAD_FILE = FALSE; 
LRUPTR = .DBGSSRC_SFCB_PTRESFCBSL_BLINK); 
WHILE. -LRUPTR NEQ™ .DBGSSRC_SFCB_PTR DO 


ARAVLSSSLSARAW SSO e er 


N 
IF (.LRUPTRCSFCBS$B8_KIND] NEQ SFCBSK_NOTUSED) AND 
yc LRUPTRESFCBSC_DSTPTRI EQL .FICDSTPTR) 
BEGIN 
06 
07 ! The file already has a Source File Control Block. Unlink it 
3 from the SFCB List. 
BLINK = .LRUPTRCSFCBSL_BLINK); 
FLINK = .LRUPTRESFCBSL_FLINKI; ° 
BLINKESECBSL_FLINK = TFLINK; 
FLINKCSFCBSL_BLINK) = .BLINK; 
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10 
\ 
13 
13 
16 ! Insert the SFCB at the Most Recently Used position. Then return 
+ its address to the caller. 
19 BLINK = .DBGSSRC_SFCB_PTRCSFCBSL_BLINK); 
0 LRUPTRCSFCBSL_FLINK) = .DBGSSRC_SFCB_PTR; 
1 64 LRUPTRUSFCBSL_BLINK) = . K; 
§ 64 BLINKCSFCBSL_FLINK) = .LRUPTR; 
64 SRC_SFCB-PTRCSFCBSL_BLINK) = .LRUPTR; 
‘ 64 DBG$SRC~SFCB-PTR = .LRUPTR; 
65 
$ 65 ' Check to see if this has been marked as unavailable file. 
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v04= 14-Sep- Be 93:73:28 DEBUG. SRCIDBGSOURCE 1039; 1 -s (9) 


= ges = .LRUPTRCSFCBSL_BLINKI; 


! We have circled the whole doubly Linked List (the given file is not 
: perecdy the List). Advance the pointer to take the Least Recently 
! Use 


' 

! 

B and close the file using that control block (if any). 

i If we locate a bad file on the List, we want to force it to execute 
! the code to get the bad s'\atus out to the user. So this is the case 
we are by passing the IF. 


if NOT .BAD_FILE 
THEN 


OO W090 000 OO OOOO INI NII NIN INNO OOAOOO 


8 6 ' 
; i te er CR LL EQL SFCBSK_FILE_UNAVAIL 
1 6 BEGIN 
; 65 IF _.STEP_FLAG 
65 TH 
r o2 SIGNAL (DBG$_F ILEUNAL) 
: ELSE 
8 BAD_FILE = TRUE; 
9 EXITLOOP; 
: ND; 
; END 
¢ ELSE . 
6 SFCBPTRCO) = .DBGSSRC_SFCB_PTR; 
7 RETURN; 
8 END; 
9 
0 END; 
4 
5 
6 
7 
8 
9 
0 
: 
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BEGIN 
DBGSSRC_SFCB_PTR = .DBGSSRC_SFCB_PTRCSFCBSL_ BLINK]; 
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67 69 a 

re o37 i ,DBGSSRC_SFCE_PTRESFCBSB_KINDI NEQ SF CBSR_NOTUSED 
70 695 DBGSSRC_CLOSE_FILE(..DBGSSRC_SFCB_PTR); 

71 69 ND; 

i; 69 

7 698 

R +43 : Determine whether the desired file is an RMS or LBR file. 
26 701 LIBMOD_PTR = 

7 7 § Fits reraces tsa SRC_DF_FILENAME) ¢ .FILOSTPTRCDSTS$B_SRC_DF_FILENAME); 
A ye Ff gh IEROS PIR DSTS$B_SRC_OF_LIBMODNAME J EQL 0 

30 4 5 SFCB_KIND = SFCBSK_RMSFILE 

& 4 $ SFCB_KIND = SFCBSK_LBRFILE; 
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3 } 5 1719 } Initialize RMS source file control block. 

3 1 Pp Fa SFAB_INIT(FAB = ,DBGSSRC_SFCB_PTRCSFCBSL_FABPTRI, 

3: 1 P 171 FAC = <GET>, 

; 1589 P 1714 FOP = <NAM> 

: 1590 P 1715 NAM = .DBGSSRC_SFCB_PTRESFCBSL_NAMPTR] 

; 1591 1716 XAB =, SRC SFC PTRESFCBSL-XABDATPTR)); 

.% 3 P 171 SRAB_INIT(RAB = .DBGSSRC_SFCB_PTRCSFCBSL_RABPTRI 

: 159 P i718 FAB = .DBGSSRC_SFCB_PTRESFCBSL_FABPTRI, 

: 1594 P 171 UBF = DBGSSRC_REC BOF EO 

: 1595 1720 USZ = MIN(SRCBUF SIZE §); 

: 1 96 P 1721 SNAM_INIT(NAM = .DBGSSRC_SFCB_PTRCSFCBSL_NAMPTRI 

: 159 P17 g ESA = .DBGSSRC_SFCB_PTRUESFCBSL_NAMBUFFER, 

; 1598 P 17 ESS = MIN(NAMBOFSIZE,255) 

: 1599 P 1726 RSA = .DBGSSRC_SFCB PTRCSFCBSL_NAMBUFFER] + NAMBUFSIZE, 
3 1600 1725 RSS = MINCNARBOF SIZE 255)); 

3 1601 P 17 $ SXABDAT_INIT(XAB = .DBGSSRC_SFCB pTrcst cast XABDATPTR] 

: 160¢ 17 NXT = .DBGSSRC_SFCB_PTRCSFCBSL_XABFHCPTR)); 

: 160 1728 SXABFHC_INIT(XAB = .DBGSSRC_SFCB_PTRCSFCBSL_XABFHCPTR)); 

3 1604 1729 SRCFAB = .DBGS$SRC_SFCB_PTRCSFCBSC_FABPTRI; 

3 1605 1730 SRCNAM = .DBGS$SRC_SFCB_PTRCSFCBSL_NAMPTR); 

: 1606 1731 PROPER_FLAG = 0; 

: 1808 1538 

3; 1609 V8 ! Set default file name to be the same as that in the Source File 

; 1919 re? } Correlation DST Record except that we change the version number to ‘*'. 
3 1612 1738 DEFAULTCO] = .FILDSTPTRCDST$B_SRC_DF_FILENAME); 

: 161 1738 CHSMOVE (.DEFAULTCOJ,FILDSTPTRCOSTSA_SRC_DF_FILENAME) ,DEFAULTC1)); 

; 1616 1738 DECR I FROM .DEFAULTCO) TO 1 00 

3 1616 1741 IF .DEFAULTC.1) EQ ';° 

ie URE Ege 

3 1619 1744 4 DEFAULTE J + 1) = 'e'; 

: 1620 1745 & DEFAULTCOJ = .1 + 1; 

: 1621 1746 4 ITLOOP; 

: 1os¢ 174 END; 

: 185% 1749 _— 

: 1635 1750 SRCFABEFABSL DNA = DEFAULTC1); 

> 1626 1751 SRCFABLFABSB_DNSJ = .DEFAULTLO); 

1858 1788 , 

: 16 5 1p ! Search the Source Directory Search List so we can open the given file in 
3; 16 1755 ! the proper directory. Search all the Header Blocks for the Module RST 
3; 1631 1728 : Eetry pointer for the current module. If the desired module is not found, 
3 1036 173 : the Header Block with the zero Module RST Entry pointer is used. 

: 1882 1985 SDSL_DIRPTR = 0; 

: 1635 1760 SDSL“PTR = .DBGSSRC_DIR_LIST; 

; 19 ive) WHILE, .S0SL_PIR NEQ™O 00 

: 1638 1708 IF .SDSL_PTRCSDSLSL_MODPTR] EQL .DBGSSRC_MODRSTPTR 

: 1825 ines THEN EGAN 

> 1641 1766 4 SDSL_DIRPTR = .SDSL_PTRCSOSLSL_LIST_PTRI; 
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3 1o0¢ 1767 & IF .SDSL_DIRPTR EQL 0 3 
3; 164 1708 4 3 
3 Hor: 1798 2 $SDBG_ERROR("DBGSOURCE\DBGSSRC_OPEN_FILE 10°); : 
3 | 1771 & EXITLOOP; 3 
3: 164 17% END; $ 
3: 1648 177 5 
3 1649 1774 IF .SDSL_PTRCSDSLSL_MODPTR] EQL 0 3 
3; 1650 1775 THEN 3 
3 1921 1776 4 BEGIN 3 
: 16 ¢ 1777 4 SDSL_DIRPTR = .SDSL_PTRCSDSLSL_LIST_PTRI; $ 
3; 165 1778 4 IF .SDSL_DIRPTR EQL~O 3 
3: 1654 1779 4 H $ 
3; 1655 1730 4 $DBG_ERROR( "DBGSOURCE\DBGSSRC_OPEN_FILE 20°); 3 
3 1928 1781 4 $ 
3; 165 1786 END; 3 
: 1658 178 3 
3 1927 1784 SDSL_PTR = .SDSL_PTRCSDSLSL_FLINK; $ 
3; 1660 1785 END; : 
3: 1661 178 3 
3 1oo8 1787 3 
3: 166 1788 ! If no Source Directory Search List entry is present, the file name from 3 
: 1664 1789 ! the Declare Source File DST command is used as is. We thus open the 3 
: 199? 1730 file and if this succeeds, return to the caller. : 
3: 1667 176 IF .SDSL_DIRPTR EQL 0 3 
3; 1668 179 THEN F 
3; 1669 1794 BEGIN 3 
: 1670 1795 : 
3; 1671 1796 3 
: lore 1797 ! Set up the exact DST file name in the FAB. : 
3: 167 1798 ! 3 
3: 1676 1799 SRCFABCFABSL_DNA) = 0; é 
: 1675 1900 SRCFABLFABSB_DNS) = 0; 3 
3 1676 1801 SRCFABLFABSL_FNA] = FILDSTPTREDSTSA SRC_DF_FILENAME): PY 
3; 1677 1308 SRCFABCFABSB_FNS) = -FILOSTPTRCOSTSB_SRC_DF_F ILENAME); ; 
: 1678 190 F 
3; 1679 1804 é 
3; 1680 1805 ! Do the SPARSE to initiate the SSEARCH Loop. é 
3 198) 1908 ! : 
3 1 $ 180 STATUS = S$PARSE(FAB = .SRCFAB); é 
3; 168 1 be IF NOT .STATUS 3 
3 1684 180 THEN 3 
3; 1685 1810 4 BEGIN é 
3: 1 1811 4 IF .STEP_FLAG 3 
3: 168 1 \ 4 THEN é 
3; 1688 181 esi® 3 
3; 1689 1814 DBGSSRC_SFCB_PTRCSFCBSB_KIND) = SFCBSK_FILE_UNAVAIL; 3 
: 1690 1815 DBGSSRC_SFCB_PTRUSFCBSL_OSTPTR) = .FILBSTPTR; : 
: 1691 1 16 DBGSSRC_SFCB_PTRESFCBSL_CURRECNUM) = 1; 3 
: 1008 181 DBGSSRC_SFCB_PTR ATS ly td fy = INIT_RFATBL_SPACING; 3 
3: 169 1 18 DBGSSRC_SFCB_PTRISFCBSW_RFACURLEN) = 0; 3 
i BS - : 
: 16% : ; ? SIGNAL (DBG$_UNAOPNSRC ,2, . SRCNAMCNAMSB_ESL],.SRCNAMCNAMSL_ESA),.STATUS); : 
3; 1698 1 ; 3 END; 3 
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: 1988 
ie 1 } Do SSEARCH to initate the NAME block. 
7 F STATUS = $SEARCH(FAB = .SRCFAB); 
7 IF NOT .STATUS 
18 x "BEGIN 
+8 IF .STEP_FLAG 
THEN 
BEGIN 
DBGSSRC_SFCB_PTRESFCBSB_KIND) = SFCBSK_FILE_UNAVAIL; 
DBGSSRC_SFCB-PTRESFCBSL_DSTPTR] = .FILDSTPTR; 
DBGSSRC_SFCB-PTRUESFCBSL-CURRECNUM] = 1; 
a DBGSSRC_SFCB-PTRESFCBSW-RFASPACING) = INIT_RFATBL_SPACING; 
DBGSS C“SFCB-PTRESFCBSW-RFACURLEN) = 0; 
8 


Open the file and check the status. 


STATUS = DBGSSRC_OPEN(.SFCB_KIND,.FILDSTPTR,PROPER_FLAG) ; 
IF NOT .STATUS 


! issue the warning message. 
if (-PROPER_FLAG NEQ 0) 
SIGNAL (DBG$_NOTORIGSRC,2,.SRCNAMCNAMS$SB_RSLJ,.SRCNAMCNAMSL_RSA)); 
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740 ! 

741 DBGSSRC_SFCB_PTRCSFCBSB_KIND) = .SFCB_KIND; 

ak 36 DBGSSRC-SFCB-PTRESFCBSL_DSTPTR) = -FICDSTPER; 

74 8 DBGSSRC_SFCB_PTRLSFCBSL_CURRECNUM) = 1; 

744 9 DBGSSRC_SFCB_PTR or pe euans Abr OC ue = [NIT_RFATBL_SPACING; 

745 0 DBGSSRC pf ce.pre SFCBSW_RFACURLEN) = 0; 

746 71 SFCBPTREO) =" .DBGSSRC_SFCB_PTR; 

747 7 TURN; 

748 7 3 

749 74 

750 75 

751 6 ' The found Header Block pointer then points to a list of directories. 
P36 7 ' Search this list to find the desired file in one of the directories on 
75 8 ' that list. 

754 7 : 

755 80 FIRST_TIME = TRUE; 
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SIGNAL (DBG$_UNAOPNSRC ,2,..SRCNAMCNAMS$B_ESLJ,.SRCNAMCNAMSL_ESA],.STATUS); 


SIGNAL (DBG$_UNAOPNSRC 2, .SRCNAMCNAMSB_ESLJ,.SRCNAMCNAMSL_ESA],.STATUS); 


! Check to see if we got the exact version of the desired file. If not, 


! The open succeeded. Fill in the source file control block and return 
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WHILE .SDSL_DIRPTR NEQ 0 DO 
BEGIN 


—~ 
VI 
OOND 


fun 


7 ! 
: 
760 5 ' Make the current prectery name the primary file name in the FAB. ; 
re) § ; Then do the SPARSE to initiate the SSEARCH Loop. : 
18 8 SRCEABEEABSL ENA = SDSL_DIRPTRESDSLSA_ENT_DIRNAME); F 
764 SRCFABLFABSB FNS) = .SOSC_DIRPTR SOSL$B_ENT_DIRLEN 3 3 
765 0 STATUS = SPARSE(FAB = .SRUFAB); 3 
108 4! cn ((.STATUS EQL RMSS_ONF) OR (.STATUS)) 3 
re 38 SIGNAL (DBG$_UNAOPNSRC ,2,..SRCNAMCNAMSB_ESLJ,.SRCNAMCNAMSL_ESA],.STATUS); 3 
796 95 IF .STATUS ; 
771 38 HEN $ 
ae 9 BEGIN 3 
77 98 $ 
774 899 3 
775 900 ' Do wild-card processing by going through a SSEARCH loop. For 3 
re +f each file found by SSEARCH, we see if it is the file we want. 

778 303 WHILE TRUE DO 

779 904 BEGIN 

780 905 

781 906 

ree ; } Get the next file from SSEARCH. 

784 STATUS = $SEARCH(FAB = .SRCFAB); 

785 IF (.STATUS EQL RMS$_FNF) OR (.STATUS EQL RMS$_NMF) 

787 1 EXITLOOP; 

788 1 IF NOT .STATUS 

789 1 THEN 

790 1 SIGNAL (DBG$_UNAOPNSRC ,2, .SRCNAMCNAM$B_ESLJ],.SRCNAMCNAMSL_ESA]), 

79 1 »STATUS); 

7 1 

7 1 

7 1 


ooo 


! Try to open that file and see if it is the exact file we 
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4 yet. If we find the exact file we want, exit the search 
oop. 


' 

] 

i 

' 

STATUS = DBGSSRC_OPEN(.SFCB_KIND, .FILDSTPTR,PROPER_FLAG) ; 
IF NOT .STATUS 
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SIGUA, (DOGS UMAOPHSRC .2.. SRCHANCHANSS SL)... SRCHANCHANSL ESA, 


IF .PROPER_FLAG EQL 0 THEN EXITLOOP; 
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! The first time we find any file with the right name, we remember 
that file's name even if it file characteristics are wrong. 


if .FIRST_TIME 
BEGIN 
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FABLE ABSB_ FNS); 

0],.SRCFABLFABSL_FNAJ FIRST_FILEL1)); 
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So 


It is not the right file = close it and loop for another file. 


DBGSSRC_SFCB_PTRESFCBSB_KIND] = .SFCB_KIND; 
DBGSSRC_CLOSE_F ILE( .OBGSSRC_SFCB_PTR); 


END; ! End of SSEARCH WHILE Loop. 
END; ! End of if on good SPARSE status. 
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' If we have not v found the desired file, get the next Source 
! Directory Search List Entry and loop to try it. 


if .STATUS AND (.PROPER_FLAG EQL 0) THEN EXITLOOP; 
SDSL_DIRPTR = .SDSL_DIRPTRCSOSLSL_ENT_FLINKJ; 
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$e +4 END; 
96 

6 96 ! If no proper file is found, the first file for the first directory 

$ 4 on the List is used, so try to open it again. 
840 96 if (.PROPER_FLAG NEQ 0) AND (NOT .FIRST_TIME) 
841 THEN 
ete BEGIN 
84 SRCFABCFABSL_FNA] = FIRST dart 
844 969 SRCFABLFABSB-FNS) = .FIRST_FILELO); 
845 970 STATUS = SPARSE(FAB .SRCFAB); 
846 971 STATUS T IGNAL(. STATUS); 
84 444 = .SRCFAB); 
848 97 IGNAL(. STATUS): 
849 974 DBGSSRC_OPEN(.SFCB_KIND, .F ILOSTPTR,PROPER_FLAG); 
850 975 f -STATUS TREN SIGNAL({STATUS); 
rt - 
85 97 
854 379 ! If the status returned from RMS is not ‘no more files’® or good status, 
$2? oey } signal the bad status. 
i $8 if NOT ((.STATUS EQL RMSS$_NMF) OR (.STATUS)) 

8 9 BEGIN 
360 386 Hes TEP FLAG 
86 y EGIN 
a8 9 GESRC_SFCB_PTR SFCBSB_KIND] = SFCBSK_FILE_UNAVAIL; 
He DBGSSRC_SFCB_PTRUSFCBSL_DSTPTR) = -FILOSTPTR: 

5 DBGSSRC~SFCB_PTR SFCBSL-CURRECNUM) = 1; 
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: Issue the warning message, if the exact file is not found. 
if (.PROPER_FLAG NEQ 0) 
SIGNAL (DBG$_NOTORIGSRC,2,.SRCNAMCNAMSB_RSLJ,.SRCNAMCNAMSL_RSA)) ; 
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NOUS wn 


! We have now successfully opened a source file in the search directory. 
} FILL in the Source File Control Block and return. 


DBGSSRC_SFCB_PTR(SFCBSB_KIND] = .SFCB_KIND; 
DBGSSRCSFCB-PTRESFCBSL -DSTPTR) = -FIEDSTP ER: 
= 15 
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| DEGSSRC SFCB_PTR SF CBSL- CURRECNUM) 
010 SFCBPTRCO] =~.DBGSSRC_SFCB_PTR; 
011 RETURN; 
Org 
01 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
24 47 42 64 SC 465 43 52 55 GF 53 47 43 44 1g QOOFF P.AAN: .ASCII <30>\DBGSOURCE\<92>\DBGSSRC_OPEN_FILE \ : 
45 4C 49 46 SF 4E 45 SO GF SF 43 52 3 0010€ : 
30 31° «0011C <ASCII \10\ : 
24 47 42 66 SC 45 43 52 55 4F 53 47 43 44 iE OO11E P.AAO: <ASCII <30>\DBGSOURCE\<92>\DBG$SRC_OPEN_FILE \ : 
20 45 4C 49 46 SF 4E 45 50 4F SF 43 52 3 00120 : 
30 32 00138 sASCII \20\ ; 
.EXTRN SYSSPARSE, SYSSSEARCH 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 DBGSSRC_OPEN FILE: 
.WORB Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 5 1482 
SE FDF4 CE 9E 0000 HOVAB «-524(SP5. §P : 
0C AC. DD 0000 PUSHL  STEP_FLAG : 1592. 
21 6E £9 OO0A Biac. OCC $ ; 
0 00000000' EF 060 9 MOVL BGSSRC_SFCB_PTR, RO : 1595 
04 08 AO 91 00014 CMPB (RO), 94 ; 
14 13 18 BNEQ F 
04 Ac 14 A0 p} 1A CPL (RO), FILDSTPTR : 1596 
00028010 t dD 1 PUSHL 184 : 1598 
000000006 Q 1 F 7 CALLS #1, LIBSSIGNAL 3 
00000099" EF p 1$: MOVL BESSRC SFCB_PTR, RO > 1606. 
0 AO CMPB (RO), # F 
08 13 BEQL 3 
03 08 ad 91 CMPB (RO), #3 + 1607 
OA 1 F BNEQ : 
04 ac 46 A 41 2%: CMPL 20(RO), FILDSTPTR > 1608 
' é b BNEQ 4 ; 
04 48 3%: BRW 43$ : 
55 04 00048 4$: CLRL  BAD_FILE ; 1638 
52 04 AO DO 00040 MOVL 4(RO), LRUPTR : 16 


® ® sak 


| 
| 
| 
| 


28 00000000" 
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DBGSSRC_SFCB_PTR, RO 
RUPTR, “RO 

(LRUPTR), #1 
(LRUPTR), FILDSTPTR 


BGSSRC_SFCB_PTR, RO 
RO), B4 


9 
RO 
4(RO), BAGSSRC_SFCB_PTR 
acsshc SFCB_PTR, RO 


SFCB_KIND 
#3, SFCB_KIND 
DBGSSRC_SFCB_PIR, RB 
4(RB), "RO 
#0, (SP), #0, #80, (RO) 
#20483, (R9) 
aersze1e. 4cn9> 
#2, 22(R95 

(R9) 


R?7, RO 
#0, (SP), #0, #68, (R6) 
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6 13¢ ; 
#17409, (R ; 
eHow Ey ‘ Bit 18 8 : 
ge Ab 00000000° gf F 14 MOVAB p GSSRC_REC_BUF, 36(R6) : 
co & 9 p 14F MOVL . 60(R6) © i ae 
0060 8F 00 09 C 13 mOvCS #0. (SP), #0, #96, (R7) ; 1725 
67 6002 f 0 138 nov 424578, (R7) ; 
04 A? i hg 00000100 f ie aDoes ‘ 66° Se CRB) 4(R7) ; 
V 44(R8), 12(R7) : 
2c 00 : ae “ g He i Moves #0, (SP), #0, #44, (R10) ; 1727, 
A 1 F 17 Move #112 2. (R10) : 
“H DS Sbee me ae aM ras 
2c 00 6E 0 Be a MOVCS #0, (SP), #0, #44, (RB) 3 
1 F BO 00191 mMOVW #11293, (RB) : 
to tee OR Biot tie ime 
deol es a 8 a 
1A MOVC ita, DEFAULT+1 F | 
ston? gg " $5 FFOO (D Sh ah mOVZBL DE EF AU ; 1739 
16 11 001B BRB 3$ : 
38 FFOO cped 91 00187 128: CMPB  DEFAULTCIJ, #59 ; 1761 
OE fs 0180 BNEQ = 1 pee 
FFO1 CD40 A 90 001BF MOVE #42, DEFAULT+1C1) ; 
FFOO CD 50 81 O1CS ADDBS A 1, DEFAULT : 1745 
F5 OO1CD 13$: SOBGTR I, 12$ : 173 
0 ee FFO1 CD 3 0100 14$: MOVAB DEFAULT+1 48(SRCFAB) F 17 
Ree ER Be) Pilate +: 
52 00000000° EF 9 oie 158: nov DRESSRC DIR_LIST, SOSL_PTR ; 176 
00000000' eF 08 As pi ote : cRPL B{SDSL_PTR), DBGSSRC_MODRSTPTR ; 176 
58 04 Ag 06 iF] Ov 4(SDSL_PIR), SDSL_DIRPTR 1766 
00000000' f oF Hi PUSHAB BAAN ; 1769 
1FF PUSHL #164706 F 
000000006 00 eentoner rp 5 CALLS 3, LIBSSIGNAL : 1765 
08 A ¥ 168: st B(SDSL_PTR) 3 1774 
58 04 Ag : Ov iy eae SDSL_DIRPTR 1777 
00000000° f i 19 PUSHA p «AAO ; 1780 
00028362 } Dp i PUSHE B164706 
sepieinnie' 98 83 8 — 17%: VL (sbst_ _PTR), SDSL_PTR > 1784 
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19be 93:73; 


AX-11 Ot ieee 
DEBUG. SRC IDB 


aw 


LDIRPTR 


44(SRCF AB) 
2(SRCFAB) 


#5, LIBSSIGNAL 
SREFAB 

a, SYSSSEARCH 
STATUS Ys 

(SP), 228 
DBGSSRC_SFCB_PTR, RO 
#4, 8(RO) 

R11, 20(RO) 


(SRCNAM 
11(SRCNAM), =(SP) 
#167160 
#5, LIBSSIGNAL 
PROPER_FLAG 
SF CB_KIND 
H+ BBGSSRC_OPEN 
RO, STAT 
STATUS, 24$ 
TAT 
(SRCNAM) 
1 (SRCNAM), =(SP) 
#467160 
#5, LIBSSIGNAL 
pe PER_FLAG 
(SRCNAM) 
(SRCNAM), =(SP) 


#165491 


1858 
1860 


co 


yn 5 
GSOURCE 16-Sep-1984 02:35:55 AX-11 Bligs-32 V4.0-74 Page 55 
vitae 1 ~8e0-19 4 96:33:22 DEBUG. SRCIOBGSOURCE 44551 . (33 
000000006 04 F 8 CALLS #4, LIBSSIGNAL : 
g 00000099" EF p gf 25$:  MOVL DBGSSRC SFCB PTR, RO + 1866 
08 A AE 16 MOVE SFCB_KIAD TRO) : 
14 =A D 18 MOVL R117, 720¢R0) + 1867 
A 1 D F MOVL #1, 6 (RO) + 1868 
AO p ; MOVL if 12(RO) + 1869 
018 BRW 43$ + 1871. 
56 D A 368 MOVL #1, FIRST_TIME : 1880 
: D D 27$ TSTL DSL_DIRPTR + 1881 
f BNEQ 8$ : 
00E1 1 BRW 6$ : 
3c A9 0s A f 28$:  MOVAB 5(R8), 44(SRCFAB) ; 1888 
4 ag x's 9 MOVB 4 (SDSL_DIRPTR), 52(SRCFAB) + 1889 
59 DD 00 PUSHL SRCFAB + 1890 
000000006 00 1 FB 034 CALLS #1, SYSSPARSE : 
7 9 DO 0034 MOVL RO, STATUS : 
0001C04A BF D1 O0034A CMPL status, #114762 + 1891 
18 13 0351 BEQL 9 ; 
1€ 2 EB 00353 BLBS STATUS, 30$ F 
7 00 00356 PUSHL STATUS : 1893 
OC AA DD 00358 USHL 12(SRCNAM) : 
7E 0B AA 9A 00358 MOVZBL 11(SRCNAM), =(SP) : 
02 DD 0035F PUSHL #2 ; 
00028CF8 BF DD 00361 PUSHL #167160 : 
000000006 00 05 Fe 0367 CALLS #5, LIBSSIGNAL ; 
03 ? 5 O36E 298:  BLBS status, 30$ + 1895 
0098 31 00 BRW 5$ : 
59 0D 00 74 30$: PUSHL SRCFAB + 1909 
000000006 00 gi FB 00376 CALLS #1, SYSSSEARCH : 
57 0 dO 00370 MOVL R STATUS : 
00018292 &F 57 D1 00380 CMPL TATUS, #98962 + 1910 
ze 13 00387 BEQL : 
000182CA BF 57 D1 00389 CMPL TATUS, #99018 ; 
75 13 00390 BEQL ; 
18 57 €8 00 32 BLBS STATUS, 31$ : 1913 
57 DD 0039 PUSHL STAT + 1916 
0c AA 0D 00397 PUSHL Ve¢SRCNAM) + 1915 
7E 0B AA 9A 0039A MOVZBL 11(SRCNAM), =(SP) : 
02 0d 00 rF PUSHL 3 
00028cF8 8F DD 0 A PUSHL #167160 : 
000000006 00 0S FB 003A6 CALLS #5, LIBSSIGNAL ; 
OC AE 9F OOSAD 31$:  PUSHAB PROPER_FLAG + 1923 
58 OD 0038 PUSHL ; 
10 Ar DD 0038 PUSHL SFCB_KIND F 
FBO2 cf F B CALLS #3, BBGSSRC_OPEN ; 
7 9 D BA MOVL RO. STAT ; 
18 E BI BLBS STATUS, 32$ 7 1924 
7 DD 003c PUSHL STATUS > 1927 
oc AA DD 003¢ PUSHL (SRCNAM) : 1926 
7E AA 9A 003¢ MOVZBL 11(SRCNAM), =(SP) : 
2 dD 003¢ PUSHL ; 
00028cF8 BF DD C8 PUSHL #167160 ; 
000000006 00 5 F D CALLS #5, LIBSSIGNAL 3 
Oc AE 8 08 328: TSTL PROPER. FLAG ; 1929 
gh DB BEQL 34 ; 
1 $ D BLBC FIRST TIME, 338 > 1935 
10 AE 34 AD 90 O03E MOVE S2(SRCFAB). FIRST_FILE > 1938 
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6 
16-Sep-1984 02:3 
2-801 884 9533 

9A E5 MOVZBL 
28 €9 moves 
D4 OOSEF CLRAL 
4 $ Fil 33$ MOVL 
F8 MOVB 
DD OOSFD PUSHL 
FB OOSFF CALLS 
31 Bes BRw 
E9 00407 34$ BLBC 
0 040A TSTL 
1 40D BEQL 
40F 35$: MOVL 
1 rig BRW 
DS 00415 368: TSTL 
13 00418 BEQL 
3 OO4IA BLBS 
E 00410 MOVAB 
90 004 § MOVB 
DD 004 PUSHL 
fe BRe 9 CALLS 
DO 00430 MOVL 
E8 snk FA BLBS 
DD 00436 PUSHL 
FB 00438 CALLS 
DD 0043F 37$: PUSHL 
FB 00441 CALLS 
dO er MOVL 
E8 00448 BLBS 
DD 0044E PUSHL 
FB 00450 CALLS 
9F 00457 38$: PUSHAB 
DD O045A PUSHL 
DD 0045C PUSHL 
FB 0045F CALLS 
DO 00464 MOVL 
E8 00467 BLBS 
DD 0046A PUSHL 
FB Boegt CALLS 
D1 00473 39% CMPL 
13 OO47A BEQL 
E8 0047C BLBS 
E9 0047F BLBC 
36 00489 MOVE 
30 nt MOVL 
DO 00491 MOVL 
dD ae) 40$ PUSHL 
go 49 PUSHL 
A 0049A MOVZBL 
DD 004 PUSHL 
DD 004A PUSHL 
F 04A6 CALLS 
1) 4AD 41$ TSTL 
1 4B BEQL 
po 4B PUSH 
A 0048 MOVZBL 
DD 0048 PUSHL 


“11 Ol igsase Vv 
BUG. SRC JDBGSOU 
E, RO 
RCFAB), FIRST_FILE+1 


FCB_PTR, RO 
B_KIND, BrRO) 


DBGSSRC_CLOSE_FILE 


TATUS, 35$ 
PROPER_FLAG 


6 
sag St.PIRPTR) SDSL_DIRPTR 
27$ 


,_39$ 
LE+1, 44(SRCFAB) 
LE, §2(SRCFAB) 


U 
#1, LIBSSIGNAL 
PROPER_FLAG 
R11 

SF CB_KIND 

#3, BBGSSRC_OPEN 
RO, STATUS 
STATUS, 39S 


STATUS 
#1, LIBSSIGNA 
STATUS, #9901 


STATUS, 41$ 
DBGSSRC_SFCB_PTR, RO 


1e< SRCNAM) 
11(SRCNAM), =(SP) 
#167160 

#5, LIBSSIGNAL 
PROPER_FLAG 
42$ 


4(SRCNAM) 
| acentaiad = (SP) 


Page 56 
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1946 
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2001 


6 
DBGSOURCE bes :35:55  VAKe11 Bliss-32 V4.0-74 Page 57 
Rite ati ae ts rant Bt ee PR 1 be dD et g 3) 
oooooc00s 99 P2875 BE po Rake re me : 
98 00000009" EF p 04(8 42% MOVL  DBGSSRC SFCB PTR, RO + 2007 
eo 8 "4 € ab so dim A eet Ti : 2008 
30 =A or DO 00408 MOVL #1, 48(RO) : 3008 
08 BC 0 DO 0040C 43$:  MOVL RO. @SFCBPTR : 5010 
04 004E6 RET : 3013 


; Routine Size: 1249 bytes, Routine Base: DBGSCODE + 082E 


; 1889 2014 1 


dD 6 
DBGSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 58 
voe~ 1ergeei 138s 93:43:28 YOKauG. Bacbacsounce.033;1 9° 10) 
; 199) ot? ! ROUTINE DBGSSRC_OUTPUT_LINE(LINE_NUM, STMT_NUM, BUFPTR, BUFLEN): NOVALUE = 
:1 38 O19 1 i FUNCTION 
3: 1894 $18 1! This routine formats and outputs one source Line. The actual text of 
3; 1895 01 1! the source Line is passed in as a pereseter. The Line's Line number: and 
3; 1896 0 y 1! statement number are also passed in. This routine then formats the Line 
: 1897 0 1! number and statement number in front of the Line's text and outputs the 
3: 1898 0 ¢ 1! Line. The statement number is omitted if it_is 7800 (es it wit be for 
3; 1899 0 1! most languages). The output for Lines 12, 123, 1234, 123456, 1234567, 
5 1900 0 4 12345.6, and 123.4 would Look as follows: 
; 190 026 1: 12: TEXT OF LINE 1 
; 1908 0 $ 1! 1 ¢: TEXT OF LINE 1 
3 1904 028 1! 1254: TEXT OF LINE 1234 
3 1905 029 1! 123456: TEXT OF LINE 12345 
: 1906 030 1! 1234567: TEXT OF LINE 1 37 67 
: 1907 031 1! 12345.6: TEXT OF LINE 12545, STATEMENT 6 
; 1908 O38 1 ; 123.4: TEXT OF LINE 123, STATEMENT 4 
: 1910 St ii Note that all Lines Line up unless the Line number and statement number 
3 ba 2086 , : require more that six characters. 
: 1318 037 1: This routine also folds Long source Lines when they would make the out- 
3 Hb a soe : put Line exceed terminal width in length. The following format is used: 
: 1916 040 1! 123: TEXT OF LINE 123, FIRST PART 
3: 1917 041 1! -: TEXT OF LINE 125, SECOND PART 
: Hb ay 3048 ' -: TEXT OF LINE 125, LAST PART 
3 1920 044 13 The string ‘=: "* thus serves as a continuation marker. Note that this 
: 196) Spee ; } routine must expand tabs to spaces in the source text. 
: 1958 bee 1/ User can use the SET MARGIN Command to set the display window size of 
3: 1926 048 1! the source text. For example, if user gives SET MARGIN 10:40, user 
3; 1925 049 1! will see the source text from the 10th character to the 40th character 
3 1926 050 1! displayed on the terminal. However, the window size is ot iused by the 
3 1927 051 1! the Length of the source record (after the expension of TABs), and the 
$ : O3¢ ; : terminal width set by the SET TERM/WIDTH = n Command. 
: 19 054 #1 The final output Lines are printed using DBGSPRINT in the normal way. 
; 1982 036 i i INPUTS 
3 198 Be { : LINE_NUM = The Line number of the source Line to be printed. 
: 1988 $39 1/ STMT_NUM = The statement number of the source Line to be printed. 
3 19% 84 : : If there is no statement number, STMT_NUM must be zero. 
: 19 06¢ 1! BUFPTR = A pointer to a buffer which contains the ASCII text of the 
: 1372 oer ! source line to be printed. 
> 1941 065 1! BUFLEN = The Length in characters of the source Line pointed to by 
A 1364 688 : : BUFPTR. 
+ 1944 8 1 ' ouTPuUTS 
3; 1945 1! NON 
; Hb ng 070 1! 
3: 196 071 1 
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GS 1o-$ep-1984 02:35:55 AX-11 Bliss-32 v4.0-74 Page 59 
ope 12=808=} 382 95:73:23 DEBUG. cRCSDBGSOUREE 03951 . (10) 
5 1368 if BEGIN 
: 1388 te e 
; : . ; ! Pointer to the mage to prin 

) 1 S?? BUFPTR: REF VECTORC BYTE) ! Poi he ASCII i t int 
3 1988 O77 BIND 
3: 19546 ee SPACES = UPLIT BYTE (ZASCIC ° "): VECTORC BYTE); 
3 132? 4 ' A vector of 8 spaces 4 
; 1989 O81 LOCAL 
; 1958 0 § FST_LINE_FLAG, ! Flag set to indicate sats output Line 
3; 1959 8 ! has a Line num 
3; 1960 4 BGNPTR: REF VECTORC,BYTE), } Pointer to “the begin search tab position 
3; 1961 085 ! source text buffer 
3 1306 4 FORMFEED_PTR: REF VECTORC,BYTE), i Pointer” to the formfeed character in 
3; 196 0 i output Line 
3: 1964 088 GAP, ! Distance between the begin pointer and 
3 1965 089 ! the tab position 
3; 1966 090 Evetn. ! Search tab range loneet 
3 1967 091 RGIN ' Source Text left column 
3 1968 09 GHT MA MARGIN ' Source Text right coluan 
3: 1969 09 CNT, ' Number of tab character 
3; 1970 094 ths ttn : spaces needed for the TAB character 
> 1971 095 POSIT i Point to the tab character 
: 197 096 TABU ji, ers BYTE],'! Expanded source text buffer 
3; 197 209 UFPTR i Pointer to the Expanded source text buffer 
3 1974 2098 TERRE WIDTH ' Terminal size - 8 
: 1975 099 WINDOW_WIDTH; i The size of the source text to be displayed 
3: 1976 100 
1 et 
3 + 144 198 } Replace form feed character by space character. 
: 1981 105 BGNPTR = .BUFPTR;: 
: 1356 196 LENGTH = .BUFLEN; 
: 1982 108 ee BEGIN, m 
: 1985 109 FORMFEED PTR = CHSFIND_CH(.LENGTH, .BGNPTR, 12); 
> 1986 110 IF ,EORRFEED TR EQL O-THEN EXITLOOP; 
3: 1987 111 FORME EED PrRTO) = —" 2 
3 1988 11g LENGTH =".LENGTH = (. FORMFEED_ PTR = .BGNPTR + 1); 
3; 1989 11 SENPTR = .FORMFEED_PTR + 1; 
3; 1990 114 END; 
£1992 18 
: 1998 119 ! Expand the TAB character to spaces in the buffer which contains the 
3 1994 118 i ASCII text of the source Line. Finally adjust the length of the original 
: bp at 1% buffer length. 
: 1999 121 TMPBUFPTR = TMPBUF ; 
3; 1998 1 § BGNPTR = .BUFPTR 
3; 1999 1 LENGTH = .BUFLEN: 
3; 2000 124 TABCNT = Q; 
3; 2001 125 WHILE TRUE DO 
3 bog 1 $ BEGIN 
3; 200 1 
3: 2004 128 


o_o 


F 6 
GSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 60 
vOe= 000 197$88-1 382 95:79:28 DEBUG. SRC SaesouRCE .835;1 . 18) 
5 ! Locate the ‘TAB’ character in the buffer. Pointed to by BGNPTR as 
the start search position, LENGTH is the given search range. 


TAB_POSITION = CHSFIND_CH(.LENGTH,.BGNPTR, ZC’ '); 


<o 


ere is no TAB character can be found, move the source text from 
NPTR position to TMPBUFPTR position. Then exit the serach TAB loop. 


TAB_POSITION EQL 0 


o- 
as 


z™ 
z 


BEGIN 
CHSMOVE(.LENGTH, .BGNPTR, .TMPBUFPTR); 
EXITLOOP; 


Count the number of the TAB characters in the source text. 
TABCNT = .TABCNT ¢ 1; 


' Move the source text before the TAB from BGNPTR postion to TMPBUFPTR 
position. 


GAP = .TAB_POSITION = .BGNPTR; 
IF .GAP NEG 0 THEN CHSMOVE(.GAP, .BGNPTR, .TMPBUFPTR); 
TMPBUFPTR = .TMPBUFPTR + .GAP; 


Morofnororg 


COooooe°ooo 


perircrehenii asa ataee 
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' Calculate the number of spaces, this TAB character shculd expand to. 
! Then move that number of spaces to the TMPBUFPTR position. 


TABLEN = .SPACESCO] - ((.TMPBUFPTR = TMPBUF) MOD .SPACES£0)); 
CHSMOVE(.TABLEN , SPACESC1], .TMPBUFPTR); 
TMPBUFPTR = .TMPBUFPTR + . TABLEN; 
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! Update the source text record length by the number of spaces added. 
! Adjust the search TAB range. Skip the TAB charcter in the original 
source text buffer. 


BUFLEN = .BUFLEN + .TABLEN; 


nm’ 


! Expansion is all done. Adjust the source record length by taking off the 
number of TABs encounted. 


BUFLEN = .BUFLEN = .TABCNT; 
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: Adjust the window margin by the length of the source text. 
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6 
1B-se -1984 02:35:55 Ax-11 Bliss- 
1 39071382 93:93:28 DEBUG. SRC IDB 
LEFT MARGIN = MAX(1, .DBGSSRC_LEFT MARGIN); 
RIGHT_MARGIN = MIN(.BUFLEN, .OBGSSRC_RIGHT_MARGIN); 


Ow 


: Check to see if the left margin is exceed the actual source text length. 
iF .LEFT_MARGIN GTR .RIGHT_MARGIN 


ei get INDOWAWIDTH = 0 
WINDOW_WIDTH = .RIGHT_MARGIN = .LEFT_MARGIN + 1; 


TERM_WIDTH = .DBGSSRC_TERM_WIDTH = 8; 


Formats the Line number and statement number, and outputs the Line. 
et — long source Lines when the output Line exceed terminal width 
n length. 


LINE FLAG = TRUE; 

UFPTR = TMPBUF + .LEFT_MARGIN = 1; 
WHILE TRUE DO 

BEGIN 


! Format the Line's Line number for the first Line to be outputed. for 
the Line exceed terminal width in length, the second Line starts with 
i — 
IF _ .FST_LINE_FLAG 
THE 
BEGIN 
IF .STMT_NUM EQL 0 
THEN 
BEGIN 
SELECT NE -LINE_NUM OF 
1 T0 9): 
DBGSPRINT(UPLIT BYTEC(ZASCIC ° *), 0); 
C10 TO 99): 
bessea jet cuPLit BYTEC(ZASCIC ° *). 0): 
(100 TO 999): 
possre ial iueuit BYTECZASCIC © °), 0); 
[100 19 9 3 F 
p86 eal +4 yeuit BYTEC(ZASCIC * ‘), 0); 
(10000 10 99999): 
DBGSPRINT(UPLIT BYTEC(ZASCIC * "), 0); 
TES; 
END; 
DBGSPRINT(UPLIT BYTE(ZASCIC “!UL: °), .LINE_NUM); 
FST_LINE_FLAG = FALSE; 
ELSE 


roe of 


<o 


H 6 
vO%=000 © 1e-$ep-198e 18:17:46 EdeeuG. SACSDBGSOURCE 039: 1 P09 485 


<o 


: 138 $3 DBGSPRINT(UPLIT BYTE(ZASCIC =: "), 0); 

> 2le1 45 

: ; § o$ : Output the corresponding source record. 

3 2126 48 LENGTH = MIN(.WINDOW WIDTH, . TERM WIDTH); 

: 2125 4 DBGSPRINT(UPLIT BYTETZASCIC ‘AD'S, LENGTH, - TMPBUF PTR); 
3 21 $ 0 DBGSNEWL INE (); 

i # 

3 1 5 § ! Check to see if any source text left to be displayed. 
; 2131 5 WINDOW WIDTH = .WINDOW_WIDTH = LENGTH; 

3 21 . § IF .WINDOW_WIDTH LEQ O° THEN EXITLOOP; 

: ; 58 TMPBUFPTR = ,TMPBUFPTR + .LENGTH; 

> 2135 5 : 

3 4) 60 RETURN; 

3; 21 61 

3; 2138 62 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
AP: .ASCII <8>\ \ 


20 20 20 20 20 20 20 20 08 6017 P.A : 
20 20 8 0 20 05 00146 P.AAQ: .ASCII <5>\ \ : 
0 0 0 4 QO14C P.AAR: .ASCII <4>\ \ F 
0 20 8 3 Bott P.AAS: .ASCII <3>\ \ : 
0 b¢ 0155 P.AAT: .ASCII <2>\ \ Z 
0 1 0158 P.AAU: .ASCII <1>\ \ : 
$8 3 4c 55 21 33 O1SA P.AAV: .ASCII <S>\!UL: \ 3 
20 3A 20 20 20 20 20 20 ; 0160 P.AAW: .ASCII -* - 3 
44 41 21 03 00169 P.AAX: .ASCII <3>\!AD\ 3 
SPACES= P. AAP 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


OFFC 00000 DBGSSRC_OUTPUT_LINE: 

-WORD ~ Save R2,R3,R4,R5,.R6,.R7.RB,RI,R10,R11 : 2015 
FERC CE 9 00002 HOVAB = 260(SPS : 

o¢ AC D 9007 MOVL §BUFPTR, BGNPTR > 2105 

6 AC p MOVL § BUFLEN, LENGTH : 21 

67 6 C 3A OOOOF 1S: LOCC #12, LENGTH, (BGNPTR) + 2109 
é 12 0001 BNEQ 2 ; 
D4 0001 CLRL RY : 
52 1 p 17 28: MOVL 1, FORMFEED_PTR : 

15 1A BEQL «= 3 > 2110 

$3 : 9 1C MOVE. #32, (FORMFEED PTR) : 2111 

51 C iF SUBL BGNPTR. FORME EED PTR, R1 : 2it2 
50 6 1 ; SUBL3 oR LENGTH. R : 
6 FF AQ MOVAB =1(R0), LENGTH : 

0. A B MOVAB 1(R2), BGNPTR : 133 

DE 1 00 F BRB 1$ : 19 

SA 04 AE 9E 1 3$ MOVAB TMPBUF, TMPBUFPTR > 2121 


Rea Ss aes abs 


-Sep-19 og :55 AX-11 Bliss 


V4.0-74 Pa 3 
14-Sep-1984 246 DEBUG. SRCID agounce.033;1 918) 


? of AC 00 5 MOVL §_ BUFPTR, BGNPTR : 21 3 
6 AC D0 9 ROVL BUF LEN, LENGTH : ; 
67 56 3 gh F 4$ LOC #9, LENGTH, (BGNPTR) + 2132 
a: a 3 
58 i f 47 5$: ROVE R1, TAB_POSITION : as 
6A 67 6 : 4 mOVC3 LENGTH, (BGNPTR), (TMPBUFPTR) + 2141 
bb S003) 6S: inet. TABENT : $108 
58 5B ; f , : SUBL3 BGNPTR, TAB_POSITION, GAP ; 134 
6A 67 $ 2 A MOVC GAP, (BGNPTR), (TMPBUFPTR) : 
- sw Bee Be een i 3156 
0 SA ; boss SUBL2 TMPBUFPTR, RO : 
1 00000000' EF 9A 00068 MOVZBL SPACES, Ri : 
43 90 0 1 7A O06 EMUL #1, RO, #0, -(SP) : 
5 0 Hi 1 7B 00074 EDIV. RI, (SP)+, RO, RO : 
29 00000000' i 9A 9079 mov? L SPACES. TABL N ; 
6A 00000000° fF 9 § ith move TABLEN, SPACES*1 (TMPBUF PTR) + 2163 
A 9 CO 000 ADDL2 TABLEN, T MPBUE PTR + 2164 
10 AC 9 €0 000 ADDL2 TABLEN CEN : 2171 
50 56 8 : 009 SUBL GAP HKENGHN, + 2172 
56 FF AO : 0096 MOVAB = , LENGT me : 
06 13 OOO9A BEQL > 2173 
57 01 AB 9E 0009C MOVAB 1(R11), BGNPTR + 217% 
10 ac BP ote BooKD 8S ereL2 TABCNT, BUFLEN : $i 
50 00000000' ; v0 OOAG ? MOVE peessRe tert “MARGIN, RO ; 186 
50 1 DO OOOAF MOVL » RO : 
25 10 Ae Oe omoe . itn Roe : 2187 
00000000" F 50 01 00089 CMPL DBGSSRC_RIGHT_MARGIN : 
50 00000000" EF Dd a9¢2 BOVE a RIGHT MARGIN, RO : 
50 ef D1 000CS 10$: CMPL FT_MARGIN, RIGHT_MARGIN + 2192 
4 15 000CC BLEG : 
Q D4 00¢ CLRL vp WIDTH + 2194 
1 ¢2 60003 118: eaL2 EFT ? 2196 
29 01 a0 § 80D “MOV vir oy pgs F 
54 00000000" y 08 C3 0009 128: SUBLS #8. DEGSSRC TERR WIDTH, TERM_wIDTH i 319 
A 03 AE4I oe £4 MOVAB Tabour -TtLeFY -ARGINI, TMPBUF PTR : 306 
03 55 5 £9 13$:  BLBS ES! _LINE_FLAG; 14$ > 221 
OOA2 31 OOOEC BRW 22$7 ; 
08 aC D EF 146%:  TSTL TMT_NUM > 2218 
03 1 Fe BEQL 5$ F 
0086 3 F BRW 21$ : 
53 04 AC 00 F7 15$:  MOVL " NE_NUM, R3 : 3331 
F FB BLEO es > 2203 
09 3 1 FD CMPL =R3, #9 : 
A 14 001 BGTR 168 ; 


_ oe 


ne 
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$sa3e va 20-748 
DBGSOURCE .832;1 


7E D4 001 CLRL = (SP) 
00000000" EF BF 1 PUSHAB P.AAQ 
A 11 0010A BRB 20$ 
OA p1 10C 16$:  CMPL 3, #10 
13 19 0010F Biss «178 
00000063 ~—s«&F p} 1 | CMPL RS #99 
A 14 0011 BcTR 178 
E ps 11A CLRL 0s = (SP) 
00000000" EF 9F 0011 PUSHAB P.AAR 
11 001 BRB 20$ 
00000064 8F D1 00126 17$: CMPL 3, #100 
13 19 00128 Biss 1a$ 
000003E7 8F D1 0012D CMPL RS, #999 
A 14 001 BGTR 18$ 
E p4 1 CLRL =s_ = (SP) 
00000000" EF 9F 001 PUSHAB P.AAS 
11 001 BRB 20s 
000003E8 8F D1 00140 18%:  CMPL 3, #1000 
13 19 0014 BLSS § 
0000270F 8F 53 D1 00149 CMPL  R3, #9999 
OA 14 0150 BGTR 
—E 04 001 CLRL =s_ = (SP) 
00000000" FF 9F 00154 PUSHAB P.AAT 
A 11 0015A BRB 20$ 
00002710 =F 53 01 0015¢ 19$:  CMPL  R3, #10000 
18 19 0016 Biss 218 
0001869F  8F 53 D1 0016 CMPL  R3, #99999 
OF 14 0016¢ BGTR 21$ 
E p4 O16e CLRL = = (SP) 
00000000° FF F 001 PUSHAB P.AAU 
000000006 00 2 FB 00176 08: CALLS #2, DBGSPRINT 
04 AC OD 00170 1$:  PUSHL LINE_NUM 
00000000" EF 9F 00180 PUSHAB 
000000006 00 O@ FB 0186 CALLS #2, DBGSPRINT 
D4 001 CLAL BSf LINE FLAG 
OF 11 O18 BRB 23$ 
—E 04 00191 228: CLRL -(SP) 
00000000" EF 9F 00193 PUSHAB P.AAW 
000000006 00 FB 0199 CALLS #2, DBGSPRINT 
50 D O1A0 238: MOVL wiNioow WIDTH, RO 
54 D1 OIA CMPL «=s RO, - TERM_WIDTH 
15 1A BLEG 2 
50 4 06 01 MOVL TERR WIDTH, RO 
56 0 DO OO1AB 24$: MOVL R CENGTH 
0440 F 88 1A PUSHR #*A<R6,R10> 
00000000" €F 9F 001B PUSHAB P.AAX 
000000006 00 3 FB 001 CALLS a3, DBGSPRINT 
000000006 99 0 FB 001BF CALLS #0; DBGSNEWL INE 
6 ( 1C6 SuBL NGTH, WINDOW WIDTH 
5A 38 1¢B ADDL2 ,ggcTH. TMPBUFPTR 
FFI Ice BRW 4 
4 00101 25$: 


3; Routine Size: 466 bytes, Routine Base: DBGSCODE + ODOF 


Ifoseoct9ne 02:55:55 yKett Blige 


ROUTINE DBGSSRC_READ_FILE(SFCBPTR, REC_NUM, BUFPTR, BUFLEN): NOVALUE = 


DONO UE WN OO OONOUE wiry 


Wn 
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This routine reads a specified source record from a specified source 
file and returns the address and length of the read record. This is 
thus the routine which actually reads source Lines from source files. 


This routine assumes that the source file has already been opened by 
DBGSSRC_OPEN_FILE. It reads the source file via RMS or the LIBRARIAN 
until the desired record number is reached. The image corresponding 
to that record number is then returned to the caller. 


This routine also builds the Record File Address (RFA) Table for the 
current source file as it reads. This table can then be used on Later 
calls to position the file pointer qtrectty at the desired line or on 

a line shortly before the desired Line. The RFA table is obviously 
used whenever available to take us closer to the desired Line. That 
table is also expanded whenever we have to read past the last RFA in 
the table. In other words, no source Line is read just to build up the 
RFA Table, but whenever a source Line must be scanned onyuey to find a 
desired source record, its RFA is recovered for use in the RFA Table. 


TS 

SFCBPTR = A pointer to the Source File Control Block for the file to be 
read. It is assumed that this control block has already been 
set up by routine DBGSSRC_OPEN_FILE. 


REC_NUM - spe Sesore Number within the file of the source record to be 
read in. 


BUFPTR = A longword location to receive a pointer to the input buffer. 
BUFLEN = A Longword location to receive the input Line's length. 


OUTPUTS 
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BOS VII VASSILSS LAS SSP EE PEER EEE 
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BUFPTR = A pointer to the buffer which contains the just read input 
line is returned to BUFPTR. 


BUFLEN = The Length in characters of the just read input Line is 
returned to BUFLEN. 
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Pointer to Source File Control Block 

Pointer to a longword to receive the 
nput Line's buffer pointer 

Pointer to a longword to receive the 
input Line's length 


SFCBPTR: REF SF CBSALOCK. 
BUFPTR: REF VECTORL1), 


BUFLEN: REF VECTOR(1); 


OCAL 
CLOSEST re ENTRY 
INPTR: BLOCKCS, BYTE), and str 
"su 
OUTPTR: BLOCK(8,BYTE), Pointer S a str ng descriptor for the 


actual record returned from LBR 


Length and string address for the user 
d buf fer 
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NAM: REF SNAM_DECL, ! NAME Block for RMS file 
AB: REF SRAB_DECL, ' RAB for RMS file 
TING_REC, 
us ! RAB and FIND status 


TRFEA: VECTOR(2) ! Pointer to RFA 
RFA_TABLE : REF RFATBLSBLOCKVECTOR(RFATBL_ENTRIES), 
! The RFA table for the file 
RFATBL_ SPACING; ! Number of source records per RFA 
! table entry. 


Determine whether to read from an RMS file or a module in a source Library. 


SRCNAM = .SFCBPTRESFCBSL_NAMPTRI; 
CASE. SFCBPTR SFCB$B_KIND) FROM SFCBSK_RMSFILE TO SFCBSK_LBRFILE OF 


Read from an RMS source file. 
CSF CBSK_RMSF ILE): 
BEGIN 


Set up the RAB pointer and RFA table. 


SRCRAB = .SFCBPTRCSFCBSL_RABPTR): 
RFA_TABLE = .SFCBPTRCSFCBSL_RFATBLPTRI; 
RFATBL_SPACING = .SFCBPTRCSFCBSW_RFASPACING); 


eee 


! Find the Line in the RFA table which represents the 
: record which is closest to the one we are looking for. 


CLOSEST_TABLE_ENTRY = MIN( .SFCBPTRCSFCBSW_RFACURLEN] 
*REC_NUM-1)/. RFATBL SPACING); 
STARTING_REC = .CLOSEST_TABLE_ERTRY®.RFATBL_SPACING; 
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! If the Source File is newly opened, get the first records's file 
! address field and store it in RFA table. 


f 87 COPTRESF CORA _CURRE CHUN EQ. 1 
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$36 
39 
40 BEGIN 
41 STATUS = SFIND(RAB = .SRCRAB); 
4¢ IF NOT .STATUS THEN SIGNAL(.STATUS); 
4 66 se dD SL ae etoey = .SRCR presser nee : 
244 67 RFA_TABLECO,RFATBLSW_RFAG) = .SRCRABLRABSW_RFAG); 
45 68 CLOSEST_TABLE_ENTRY = 0; 
46 44 END; 
tB 0 
43 % ! Take the RFA table entry that is closest to the desired record, 
50 7 ! and position the nae so that we are pointing to the record 
51 74 : corresponding to this RFA, 
25 75 ' (If we ore already positioned at the desired record we 
5 76 ' skip this) 


m 6 
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IF RECLNUN NEQ .SFCBPTRCSFCBSL_CURRECNUM) 


858351 Page 49) 


BEGIN 

SRCRABLRABSL RE AO] : RFA_TABLEC.CLOSEST_TABLE_ENTRY, 

SRCRABCRABSW_RFAS) = ,RFA_TABLEL.CLOSEST_TABLE_ENTRY, 
RFATBLS$W_RFAGI; 


R ; 
SF CBPTRCSFCBSL_CORRECNUM) = 1 + (.CLOSEST_TABLE_ENTRY * 


.RFATB SPAC NG) 
SRCRABCRABS$B_RAC) = RABSC_RFA; 
STATUS = SFIND(RAB = .SRCRAB): 
if NOT .STATUS THEN SIGNAL(.STATUS); 


4 Soquenttei ty read from the current record to the desired record 
' number. Skip over records containing only <form Feed>; 
do not count them toward the record count. 


SRCRABLRABSB_RAC) = RABSC_SEQ; 
INCR I FROM .SFCBPTRCSFCBSL_CURRECNUMJ-1 TO .REC_NUM-1 DO 


OOOOOOWMWOMOMMODdDO ~~ 
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400 WHILE TRUE DO 
r4 401 N 
2 40 STATUS = $GET(RAB = .SRCRAB); 
sae re IF a » STATUS 
ooe ret SIGNAL (DBG$_UNAREASRC ,2, .SRCNAMCNAMSB_RSLJ,.SRCNAMCNAMSL_RSA),. STATUS); 
2 407 
Fr 
; 


Check for whether we need to update the RFA table 


408 ! If this flag is set, that means we do not want to skip 
the formfeed record. 
1 IF .DBGSSRC_FORMFEED_FLAG THEN EXITLOOP; 
1 IF NOT ((.DBGSSRC_REC BUF LO] EQL 12) AND 
1 (.SRCRABCRABSQ_RSZ) EQL 1)) 
1 THEN 
: EXITLOOP; 
1 END; 
1 
3 


1 
! we do this every ‘'n"’ records, where ‘'n’’ is RFATBL_SPACING. 
' As a minor optimization, we do not update the table 
' for the very first record we read - this table entry 
} is already filled in. 


if ((.1 MOD .RFATBL_SPACING) EQL 0) AND 
(,1 NEQ .STARTING REC) 


N 
BEGIN ! update table 

First check whether the table is full. 

if (.1 / .RFATBL SPACING) GEQ RFATBL_ENTRIES 
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THEN 
BEGIN 


Compact the table. 


REATBL Psr cosy = 2 * ,RFATBL_SPACING; 
Ay SFCB$W_RFASPACING) =-.RFATBL ot ee 
i © 0 TO RFATBL LENTRIES=2 BY~ 


aa 
RFA i ABLEC. J/2,RFATBLSL_RFAO) = 

A TABLEC. J J REATBCSL RFAO): 
RFA TABLE 3/2, RFATB RRC) = 
i," A_TABLEC.U, RFATECSU. REAG): 


END; 
! Update — table length and fill in the new 
table entry. 


SF CAPTRESF CBS RF ACURLEN 
If .J CIN 


1/.RFATBL_SPACING; 
MOD .RFATBL_SPA 


ENJ =. 
ING EQL "4 


BEGIN 
RFA STABLE. 1/, REATBL SPACING ,RFATBLSL_RFAO] 
RFA_TABLEL.I/. Brae SPACING, RFATBLSW_RFAG) 
aid . SRCRABLRABSW_RFAGI; 


END; ! update the table 
END; ! incr loop 


! Update the current record number field in SFCB. Set up the buffer 
pointer and buffer length. 


sFcaprat src rcest bres CNUM) ae gfeC NUM + 1; 
BUFPTR f RCRABCRABSL_R 
BUFLENCO > TSRCRAB RABSW_ “R873; 


END; ! RMS file case alternative 


Read from a module in a Source Library File. 


CSF CBSK_LBRFILE): 
BEGIN 


If the current record number is beyond the desired record number, 
reset the current record to 1 and set the record file address to the 
beginning of the module. 


iF ot COPTRCSFCBSL_CURRECNUN) GTR .REC_NUM 


BEGIN 
TXTRFACO) = .SFCBPTRCSFCBSL_CUR_RFAO); 


md eres ee ere 


roe ft 


—— eee ee 
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cosy. UR_RFAGI; 
MA) = 1; 

TRCESFCASL 
NAL (.STATOS 


Ax-11 Ol igsnse V4.0-74 
DEBUG. SRC JDBGSOURCE .832;1 


| P tatenrtenn nccnactont 


! Sequentially read from the current record to the desired record 


number. 


“REC_NUM DO 


STATUS = LBRSGET_RECORD(SFCBPTRCSFCBSL_LBRINDEX], INPTR,OUTPTR) ; 


IF NOT .STATUS 
THEN 


SIGNAL (DBG$_UNAREASRC ,2, .. SRCNAMCNAMSB_RSLJ,.SRCNAMCNAMS$L_RSAJ,.STATUS); 


IF .DBGSSRC_FORMFEED_FLAG THEN EXITLOOP; 
IF NOT ((.DBGSSRC_REC_BUFCO)] EQL 12) AND 

‘ (,OUTPTRCBSC$Q_LENGTH] EQL 1)) 
EXITLOOP; 

END; 


THE 


! Update the current record number field in SFCB. 


: pointer and buffer Length. 


SF CBPTRESFCBSL CURRECNUM] = .REC_NUM + 1; 
BUF PITRE : = ,OOTPTREDSCSA_POINTER); 
BUFLENCOJ = .OUTPTRCDSCSW-LENGTH; 

END; 


CINRANGE, OUTRANGE): 
$DBG_ERROR( *DBGSOURCE\DBGS$SRC_READ_FILE"); 


TES; 
RETURN; 
END; 
»PSECT 
52 55 4F 53 47 42 44 1 O16D P.AAY: .ASCII 
44 41 45 33 5F ra 52 58 8019 


DBGSPLIT.NOWRT, 
<27>\DBGSOURCE \<92>\DBGSSRC_READ_F ILE\ 


Set up buffer 


SHR, PIC,0 
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-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 DBGSSRC_READ_FILE: 
.WORB Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2263 
5 18 C3 9000 SUBL2 #24, SP ; 
; 94 AC DO 0000 MOVL FCAPTR, R3 : 2333 
0 A3 00 00009 OVL 2(R3), SRCNAN : 
01 02 08 a3 8F 0000D CASEB B(R3), #2, # + 23346 
017A OO1A 0012 1$ WORD $-18,- : 
00000000" EF 9F 00016 PUSHAB P.AAY + 2534 
1 OD b00i¢ USHL # : 
00028362 8F DD OO01E PUSHL #164706 : 
000000006 00 03 FB 208 4 CALLS #3, LIBSSIGNAL ; 
55 1¢ A3 DO 0002C 2s: MOVL 28(R3), SRCRAB + 2345. 
54 10 A3 DO 00030 MOVL 18(R3). RFA_TABLE + 2346 
58 0c A 3C 00034 MOVZWL 12(R3), RFATBL_SPACING 3 2347 
SA 08 Ac 01 C3 00038 SUBL3. #1, REC_NUM, R : 2354 
51 SA 58 : 0003D DIVL RFATaL SPACING, R10, R1 : 
50 0€ A3 3¢ 00041 MOVZWL 14(R3)7 RO : 
51 50 D1 00045 CMPL —sRO, RI ; 
03 15 00048 BLEG 40s 3$ ; 
50 51 DO 0004A MOVL 1, RO : 
52 50 DO 0004D 3s: MOVL. RO, CLOSEST_TABLE_ENTRY + 235 
58 52 58 5 00050 MULL3 RFATBL_SPACING, CCOSEST_TABLE_ENTRY, - : 235 
STARTING REC F 
01 30 Ad D1 00054 CMPL «6—«-s« &B(R3), FI : 2361 
23 12 00058 BNEQ 5$ : 
5 DD O005A PUSHL  SRCRAB : 2364. 
000000006 00 gi FB 9005¢ CALLS #1, SYSSFIN : | 
59 0 DO 0006 MOVL RO, STATUS : | 
09 59 €8 00066 BLBS STATUS, 4$ : 2365. 
59 DD 00069 PUSHL STATUS ; 
000000006 00 01 FB 0068 CALLS #1, LIBSSIGNAL ; | 
64 10 AS 00 00072 4$: MOVL 16(SRCRAB), (RFA_TABLE) : 2366 | 
04 Ab 14 AS BO 00076 MOVW 20(SRCRAB), 4(RFA TABLE) : 3367 
52 04 00078 CLRL = CLOSEST_TABLE_ENTRY : 2368 | 
30 «a3 08 AC i 0070 5$: cHPL RE C_NUM; 48(R3) : 2378. 
50 52 06 MULL3 #6, CLOSEST_TABLE_ENTRY, RO : 2382. 
6044 §? § PUSHAB (ROD EREA FABLES . : 3384 
10 AS 9& 00 000 MOVL a(SP)+, T6(SRCRAB) : 
04 A044 9F OO008F PUSHAB 4(RO)CREA_TABLE) : 2383. 
16 AS 9— B0 009 MOVW a(SP)+, 20(SRCRAB) : 
5 5 c4 009 MULL2 RFATBL SPACING, R2 > 2386. 
30 OA 0. OA O9A MOV 1(R2) , 48(R3) > 2385 
1€ = A5 Q 9 Oo MOVB #2, 30(SRCRAB) > 2387. 
DD 0 A PUSHL  SRCRAB > 2388 
000000006 09 1 i Tt CALL a, SYS$F IND : | 
9 § é 8 AF BLBS STATUS, 3 > 2389 
9 OD it PUSHL STATUS 2 
000000006 00 01 FB 00084 CALLS #1, LIBSSIGNAL : 


<9 
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| DBGSOURCE 16-Se 4 :55 AX-11 Bliss-32 V4.0-74 Page 71 
MOL 000 Vergee~} 38 98:33:23 FAKSNE Bhi gseze ve O-28s 94D) 
1€E AS 96 000BB 6$: CLRB_ 30(SRCRAB) : 2397 
52 30 «a3 03 ¢3 B SUBL3.# aBCR ee : $ 98 
OOAF C BRw 10$ : 
5 DD 0006 7$ PUSHL  SRCR + 2402 
000000006 99 ? ¢ CALLS #1, SYSSGET : 
9 D OCF MOVL RO, STA : 
18 E D LBS = STATUS, : 34 3 
9 DD 000D PUSHL $TATU + 2405 
04 A7 0D 0000 PUSHL 4(SRCNAM) : 
7E 3 A7 9A OOODA MOVZBL 3(SRCNAM), <(SP) : 
2 DD OD PUSHL #2 : 
00028000 8F OD OE PUSHL #16 : 
000000006 00 5 FB £6 CALLS IBSSIGNA ; 
OF 00000000" EF f OED 8$: BLBS paéstne *PORMFEED FLAG, 9$ + 2611 
€ 00000000° Ff 1 000F4 CMPB baGSsRC REC_BUF , #12 + 2612 
12 000FB BNEQ : 
01 22 AS B1 000FD CMPW 34 (SRCRAB) ra + 2613 
13 0191 BEQL ; 
7E 00 52 1 7A 001 3 9S: EMUL #1, I, #0, -(SP) + 2426 
50 50 BE a 78 0108 EDIV RFATBL_SPACING, (SP)+, RO, RO : 
50 »D 90190 TSTL OR ; 
64 12 0010F BNEQ 128 : 
58 2 01 00111 CMPL J, STARTING_REC + 2627 
SF 13 00114 BEQL : 
50 52 58 C7 00116 DIVL3 RFATBL SPACING, I, RO + 2433 
3 50 D1 OOtIA CMPL ; 
: 19 00110 BLSS. 3 
58 C4 OO11F MULL2 #2, RFATBL_SPACING + 2639 
oc AB 58 80 00122 MOVW RFATBL ster 12(R3) + 264 
50 04 001 6 am 4 3 246 
51 50 2 C7 00128 10$:  ODIVL3 #2, J : 
51 6 C4 0012C MULL hs : 
56 50 6 ¢€5 O012F MULLS #6 + 2644 
6144 9F 00133 H aS, frhe A.TABLE] F 
6644 9F 001 PUSHAB (R6)CR ; 
9E 9& DO 001 MOVL a(SP)+ Ast (SP) ; 
04 A144 OF ot C PUSHAB 4(R1) itr TABLE + 2446 
04 A644 9F 00140 PUSHAB 4(R6) RFA’ TABLE ; 
9 9 80 144 Vid a(sP)s, atSP)s F 
FFDB 50 Q 3 F1 00147 ACBL. #4 > 2441 
50 C7 0014D 11$:  DIVL3 RFATBL 2 codes 108 1, RO + 2453 
OE A 50 80 151 MOVW RO. rath 3) 3 
7E 00 5 1 7A 00155 EMUL SP) + 2454 
51 51 BE 2 78 15a EDIV arkrac SPACING. (SP)+, RI, R1 : 
15F TSTL 1 : 
12 12 00161 BNEQ \ $ ; 
50 06 C4 00163 MULL2 RO 3 2457 
6044 9F 166 PUSHAB {ROD ERFA TABLE) : 2458 
9E 10 AS 00 0016 VL 1eCSRERAB) a(SP)+ : 
04 A044 OF 1g PUSHAB 4(RO)CRFA_fABLE) + 2460 
9 14 AS BO 00171 MOV 20 SRCRABT , 9(SP)+ 3 
FFB 52 0 SA F1 00175 128: ACBL. R10, #1, I. 7$ : 2398 
30 A 8 AC 01 ¢1 00178 ADDL3 #1, REC NUM, 48(R3) > 2670 
¢ BC 38 AS 00 00181 ROVE 40(SRCRAB), @BUFPTR : 2671 
BC A ¢ MOV WL 34(SRCRAB). @BUFLEN fe 
08 ac 30 a3 01 0018C 138 CMPL  48(R3), REC_NUM + 2487 


De Oe Oe Oe Oe Oe Be Se Se SH See Se SE Se Se SH Se Se Se Ge SH Se Se Se Se Se oe Se Se Se Se SHS Se Se Se Se ee Se Se Se Se Se Se Se Se ee Se ee Se Se Se Se Se teas <o 
ow | 


a RCE 


1 
1 
28 1 
6€ 3 A 99 133 
ge A 8 A 5 19 
0 A gt Dd 19 
4 1A 
xc UC F QOTA 
000000006 98 F 1A 
Dd 1AC 
09 E TAF 
9 DD 00182 
santo AE 0100, BF BO OO1BE 148 
14 AE 0009000: EF Se ei 
OC AE vacean EF 9€ 001C9 
54 C AS 101 
52 30. AS 01 f 105 
43 11 QO1DA 
08 AE 9F 001DC 158: 
14 AE OF ats 
54 DD OO1E2 
000000006 00 03 FB OO1E4 
59 50 00 OO1EB 
18 59 €8 OOTEE 
59 OD OO1FI 
04 A? OD 001F3 
7E 03 A? 9A 001F6 
ge dD Barca 
00028000 F OD BaeS 
000000006 00 05 4 0020 
OF 00000000" EF 3 00209 168: 
Oc 00000000" EF 91 00 19 
06 12 88 1 
01 08 AE B81 00219 
BD B 00210 
88 52 08 AC F353 OO21F 178: 
30 AS 08 Ac 01 C1 00224 
oc BC OC AE gO 885 A 
10 «BC 08 AE 3C 0022F 
04 002 


3; Routine Size: 565 bytes, Routine Base: 


DBGSCODE + OEE! 


? 
“Sep-19 
b-se0-198 


BUF, INPTR+4 
“BUF, OUTPTR+4 
I 


R4 

#3, LBRSGET_RECORD 
RO, STATUS 

STATUS, 16$ 

STATUS 

4(SRCNAM) 
3(SRCNAM), =(SP) 


#5, LIBSSIGNAL 
DBGSSRC_FORMFEED_FLAG, 17S 


DBGSSRC_REC_BUF, #12 
QUTPTR. #1 


AX-11 Bliss-32 V4.0-7 
DEBUG. SRC JDBGSOURCE .B 
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; +38 <3 } ROUTINE DBGSSRC_SEARCH(BUFPTR, BUFLEN): = 
: i T 
: " : te i : me: 10Nis routine pctues ty goripres the search. This routine locates the 
3; 24 : 45 1! desired search string in the input buffer. Lowercase letters are 
3 2426 ‘$ 7 translated to uppercase letter before the search is performed. 
3; 2425 2 1! If there is_a match, this routine returns TRUE, otherwise FALSE is 
: 2426 948 1! returned. There are two ways of searching for the desired string. 

427 309 1; One is to search the string that has the match, je. SEARCH for “ABC”, 
: 2628 550 1! then "‘ABCXXX'’, or ""XXXABC'’, or "XXABCXX"’ would be found. The other 
> 2429 a2) 3 is to search the string that has the exact match, i.e. the characters 
> 2430 5 ¢ 1! to the sett and the right of the search string Asc” can not be a valid 
3; 2431 338 : character in identifiers in the currently set language. 
>; 24 } 

$ 

: 4 322 i i saat: BUFPTR = A pointer to a buffer which contains the ASCII text of the 
+ 2435 337 : } source Line to be printed. 
; a39 236 1 BUFLEN = The Length in characters of the source Line pointed to by 
: tt 209 : : BUFPTR. 
: i T 
: ree 268 : ; ath This routine returns TRUE of the search string was found in the current 
> 264 566 1 Line and FALSE if it was not. 
3 244 : 
3 2444 566 BEGIN 
: ree 2p MAP 
; ce? 289 2 BUFPTR: REF VECTORC BYTE); ! Pointer to the ASCII image to print 
: ret 3571 LOCAL AAR, ! Serve as an index character index 
+ 2651 ng i into the Translate Table 
: 345 574 3 DES_STR: BLOCK(8,BYTE]), aoe 2 ee string 
: Stee ae 2 SRC_STR: BLOCK(8,BYTE), i Address of source string descriptor 
+ 2455 577 STATUS, i Return status from System routines 
+ 2456 57 TMPBUF: VECTORCSRCBUFSIZE,BYTE),! venpery buffer which holds all the 
: 2457 378 i etters in uppercase 
: 2458 580 TMPLEN, i Remaining size of tempory buffer 
: 2659 581 TMPPTR: i Pointer to the tempory buffer 
3; 2460 286 
: te? 384 
; : rcase letters to uppercase via STRSUPCASE. Before 
: ret at : Neer ts itd ancien descriptors 34 STRSUPCASE as passing parameters. 
: 465 i Array descriptor, character-coded text. 

4 ; 
: S_STRCDSC$B_CLASS] = DSCSK_CLASS_S: 
; ies 355 DESTet DSCSB"DTYPE = DSCSK~DTYPE_T: 
3 2469 +4 DES-STREDSCS$W_LENGTH) = .BUFCEN; 
3; 2470 5 DES_STRLDSCSA_POINTER) = TMPBUF; 
3: 2671 59 SRC_STREDSCS$B_CLASS) = DSC$K_CLASS_S: 
3 247 594 SRC_STREIDSCSB_DTYPE) = DSCSK _DTYPE_T; 
3 a3 MECSTMPDSCRCSSIGIERS"= SOLED 
: 478 339 STATUS = STRSOPCASE(DES_STR,SRC_STR); 


mm 


a 


? 
Ibs 1984 02:35:55  VAX-11 Bliss-32 vé.0-74 Page 7% 
Ve~see=t38e 98:93:23 | Mae he sSaceounce 35.1 29e 4) 


47 9 

a} 335 

47 600 ' Search for the desired ——e in the fonpery buffer. If the desired 

4 601 ! string is not found. return FALSE. If the desired string is found 

4 6 § ! and search qualifier is SEARCH ceture TRUE. If the desired 

481 6 : per tne is found and search qualif er is IDENTIFIER, then the left 

4 ¢ 6 ' andr ie characters of the desired string are checked. If the 

4 605 ! desire string s identifier, return TRUE. Otherwise search goes 

oh 6 i on till reaching to end of the buffer. 

rt’ on8 TMPLEN = .BUFLEN; 

4 60 TMPPTR = TMPBUF; 

4 610 STATUS = TRUE; 

190 12 WHE EGING 

491 8 TMPPTR = CHSFIND_SUB(.TMPLEN, .TMPPTR, .DBGSSRC_SEARCH_STRING(O]), 

49 614 DBGSSRC~SEARCH_STRINGL1}); 

94 HF 

495 $19 ! Check to see if the matched string is found. If such string is not 
+38 O18 found, return the status. 

re FO ate EQL 0 

500 6 ¢ 4 BEGIN 

501 6 4 STATUS = FALSE; 

50 624 & EXITLOOP; 

50 625 END; 

se aesS 

506 628 ! Check to see if the exact match option /IDENT is used. If it is, goes on 
307 oS with more checking. Otherwise, we are all done. 

509 631 IF (.DBGSSRC_SEARCH_FLAG EQL SEARCH_STRING_ALL) OR 

510 O36 4 (. DBGSSRC_SEARCH_FLAG EQL SEARCH_STRING_NEXT) 

511 6 3 THEN 

21¢ 634 4 BEGIN 

51 635 4 STATUS = TRUE; 

514 6 4 EXITLOOP; 

515 6 END; 

ya 

518 640 ' Check to see if the characters on each side of the pattern string are 
519 641 : vol t¢ in identifiers for the current language. This check is done by 
520 76 ! look ng up each character's attributes in the DBGPARSER Character 
521 64 ! Table for the currently SET language. First we check the character 
5 § 644 ' to the left of the found string, and then the character on the right. 
5 645 ! STATUS is set to FALSE if the string appears to be part of a larger 
; : O68 identifier. 

5 $ ver | IF .TMPPTR NEQ TMPBUF 

5 64 THEN 

528 $30 & BEGIN 

529 651 4 CHAR = (,TMPPTR = 1) = TMPBUF; 

5 O36 4 STATUS = TRUE; 

23) 6535 4 IF .DBGSGL_CHARTBL -TMPBUFC.CHAR], CHRTBLSV_IDENT_START) OR 

532 654 4 -DBGSGL_CHARTBLC.TMPBUFC CHAR], CHRTBLSV_IDENT_MIDDLE) OR 


aap SR tens fa Nene AL » 


OFFC 00000 DBGSSRC_SEARCH: 


GSOURCE bse -1984 AX-11 Bliss-32 v4.0-74 Page 75 
ype 16-sep-1964 96: $3323 DEBUG. SRC ID BecOURCE .63351 9° 12) 
; 2533 6 5 4 Hef PBOSGL.CHARTBLL. THPBUFL «CHARI, nag si 8 : 
: 2535 6 3 é STATUS = FALSE; ; 
: re END; ; 
: 660 : 
: 40 req) ' Check the right hand side character. First make sure there is a : 
3: 2541 66 ! right hand side character. Again, we set STATUS to FALSE if the ; 
; tg e¢) ; string appears to be part of a larger identifier. : 
> 5Saa TMPPTR = .TMPPTR + .DBGSSRC SEARCH STRINGLOI: ; 
> 2545 oe$ IF .TMPPTR GEQ (TMPBUF ¢ .BOFLEN) THEN EXITLOOP; : 
; 346 668 IF (.TMPPTR LEQ (TMPBUF ¢ OUFEEND) AND .STATUS 3 
: 254 66 THEN 3 
: 2548 670 4 BEGIN : 
3 2549 671 & CHAR = .TMPPTR = TMPBUF; ; 
; 2550 67¢ 4 STATUS = TRU : 
: 2551 673 4 IF .OBGSGL_ CRARTAL ~TMPBUFC.CHAR], CHRTBLSV_IDENT_START]_ OR 3 
: 238 674 & .DBGSGL-CHARTBLC. TMPBUFL.CHAR], CHRTBL$V—IDENT-MIDDLE) OR ; 
3 333 675 4 jDBescL- CHARTBLC.TMPBUFC.CHAR], CHRTBLSV-IDENT-END] : 
: 2555 ers 4 STATUS = FALSE; ; 
3 396 678 4 F 
: 255 679 END; F 
: $226 $B 
3 44 re We have found the desired match, return good status to the caller. 3 
; 36¢ 684 if “STATUS THEN EXITLOOP: : 
3 256 685 TMPLEN = TMPBUF + .BUFLEN = .TMPPTR; ; 
3 364 686 IF .TMPLEN LEQ 0 THEN EXITLOOP; : 
> 2566 688 END; ! End of WHILE Loop. : 
3; 2567 689 é 
; 368 690 RETURN .STATUS; : 
> 2570 692 1 END; ; 
"WORD g RZ R5.RG_RS.RG.R7.RE.RO,RIO.RIN : 2541 : 
B 990000 G6 00 9 9002 MOVAB aBescL CHA hI : : 
A 0 99 * EF 3 MOVAB DBGSSRE_s LAG, R10 ; : 
9 00000000" EF 9€ 19 MOVAB Pe SRC cSEARCN “STRING. R9 ; : 
E Fer —E 9 1 MOVAB F : 
FA AD 0 oF F B 1 mOVW “Des sThe2 : 2590 : 
FB AD AC : MOV eu ftw, b : 2591 : 
FC OAD E MOVAB pee. SThes : 2592 3 
if AD 01 f F 8B 2 MOV 8? * eat STR+2 3 2594 i 
FO AD AC B MOV FLEN, SRC_S : 2595 ; 
fF AD 4 AC MOVL = BUFPTR RG ; 96 : 
FO AD 9F PUSHAB SRC_STR ; 259 ; 
FB AD OF PUSHAB DES™STR ; ; 


7 
GSOURCE tose -1 :35:55 AX-11 Bliss-32 v4.0-74 Page 76 
vitae 1 a 1 96: 46 DEBUG. SRC saesOURCE «03551 9 12) 
000000006 00 92 F 41 CALLS #2, STRSUPCASE : 
D 48 MOVL RO, STATU : 
08 AC p 48 MOVL ®BUFLEN, TMPLEN : 2608 
GF ; GF MOVAS TMPBUF, TMPPTR : 3609 
5 p MOVL sof} status : $10 
6E : ROVAR TMPBUF, R + 366 
i = $9 a, C 1$ nov BL BUbene Se ancy STRING, RS + 2613 
62 58 01 Ad $2 9 0005F MATCHC RS DBGSSRC SEARCH, STRINGS, TMPLEN, = ; sii 
13 00 ; BEQL 2$ : 
C A 28: SUBL2 5. R : 
D $ $0 MOVL R3, TMPPTR : 
4 1 " BNEG 3 26 9 
6 D4 0007 CLAL TATUS 3 26 
0D 11 00074 BRB + 2622 
03 6A 01 00076 38: CMPL § DBGSSRC_SEARCH_FLAG, #3 + 2631 
05 13 0007 BEQL 84 : 
04 6A D1 00078 CMPL § DBGSSRC_SEARCH_FLAG, #4 + 2632 
05 if 007 BNEQ : 
56 Q1 DD 00080 4s: MOVL #1, STATUS + 2635 
2 11 00083 5$: BRB 12$ + 2634 
50 $ 9E 00085 6$: MOVAB TMPBUF, RO + 2648 
50 D1 0088 CMPL TMPPTR. RO : 
29 13 000 BEQL $ : 
59 : 3 008D MOV + 2651 
53 5 ¢ 0090 SUBL3 RO, TMPPTR, R3 : 
54 FFA E 0094 MOVAB = 1 (R3) R : 
56 01 DO 00098 MOVL #1, STATUS : 365 
51 68 DO 00098 MOVL § DBGSGL_CHARTBL, R1 > 265 
50 6644 9A 0009 MOVZBL TMPB Fe HAR], RO : 
OE 6140 £8 OOOA BLBS  (R1)CROJ, 7$ : 
6140 DF 000A PUSHAL (R1) > 2654 
07 9€ 01 £0 000A BBS eo a(sP)+, 7$ : 
6140 DF OOOAD PUSHAL (R1)(RO) : 2655 
02 9€ 92 E1 00080 BBC #2, a(SP)+, 8$ F 
6 D4 00084 7$: CLAL U + 2657 
50 69 9A 00086 8$: MOVZBL DBGSSRC SEARCH_STRING, RO + 2666 
3g 29 CO 0008 ADDL2 RO, TMPPTR : 
5 3 D1 000BC CMPL TMPPTR, R7 ; 2667 
6 18 O00BF BGEG 12$ ; 
3 14 000C1 BGTR 108 : 2668 
28 6 £9 O0¢s BLBC STATUS, 11$ ; 
6f C6 ROVAB TMPB : 2671 
54 32 C 0¢9 SUBL RO. TMPPTR, CHAR : 
6 01 »D CD MOVL #1. STAT ; 367 
31 68 p 9D VL DBGSGL_CHARTBL, R1 > 267 
0 GF 44 A 0000 MOVZBL TMPBUF HAR]. RO ; 
0€ 6 49 EB 0000 LBS —s (RI) CROJ, 9 ; 
6140 DF 00008 PUSHAL > 2674 
07 9E 01 £0 0000 BBS “i a(sP)e, 9$ ; 
6140 DF OOOE PUSHAL (R1)CRO) > 2675 
02 9€ E1 OO0E BBC #2, a(SP)+, 10$ ; 
D4 O00E9 9S: CLRL STATUS > 2677 
9 $ cg €B 10$:  $BLBS STATUS, 12$ > 2684 
58 ? ¢ £E 11$:  SUBL3  TMPPTR. R?, TMPLEN > 2685 


F 


na 
nw 
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STATUS, RO 
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Routine Base: DBGSCODE + 1116 


251 bytes, 


3; Routine Size: 


~o wo 


ou OO 


Kk 7 

GSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Pa 78 
von 12286871382 9337 746 DEBUG. SRCIOBGSOURCE .099;1 9° 15) 
; 257 693 1 GLOBAL ROUTINE DBGSSRC_SEARCH_CMD(MODRSTPTR, LOW LNUM, LOW STMT, 
; 257 694 1 HIGH LNUM, HIGA STMf 
; us 699 F SEARCH_BY.STRING_ FLAG, SEARCH_NEXT_FLAG): NOVALUE = 
; 78 £99 1 ! FUNCTION 
3; 257 038 a This routine eccegts a Module RST Entry pointer, a Line number range, 
: 4 $ 1: and flags set to indicate the options are used in SEARCH command. 
3 ;: The options for the SEARCH command are SEARCH by IDENTIFIER or SEARCH 
; HY 7 2. 4 by STRING; find NEXT matche gering or ALL matched string in the range. 
> 2581 7 : ii This routine then calls DBGSSRC_TYPE_LNUM SOURCE to type out source 
8 Ht 7 ,: Lines in that range from that module which contains matched search 
: 706 1! string. 
3 705 1! 
; 5 7 1 ! INPUTS 
3 707 1! MODRSTPTR = A pointer to the Module RST Entry of the module in which 
3 rath re : : the source Lines are to be looked up. 
3; 2589 710 1! LOW_LNUM = The Line number of the first source Line to be searched. 
3 rh ap : This is assumed to be a Line number in the MODRSTPTR module. 
3; 259 ng 7? LOW_STMT = The statement number, if any, associated with the first 
3 237 me ' } source Line to be searched. 
3; 2595 rig 1! HIGH_LNUM = The Line number of the last source line to be searched. 
3 339 ne : This too is assumed to be a Line in the MODRSTPTR module. 
3; 2598 719 1! HIGH_STMT = The statement number, if any, associated with the last 
; rh 739 : source Line to be searched. 
3; 2601 7 ; 1} SEARCH_BY_STRING_FLAG = Flag set to TRUE if /STRING is used, this 
3 res 7 7! means search for any string that matches the 
3; 260 7246 1! piven search string. Otherwise flag set to 
3 2604 veo vi ALSE if /IDENTIFIER is used, this means 
3 eRe 4 $ : search for the exact match for the given string. 
3; 260 728 1! SEARCH_NEXT_FLAG = Flag set to TRUE if /NEXT is used, this means 
3; 2608 729 1! search for the first match oyetne in the given range. 
3; 2609 +, a Otherwise flag set to FALSE if / iL is used, this 
3 219 4 1 ; : means search for all the match stings in the range. 
3 Ole 7 : 1 ! IMPLICIT INPUT 
3 Siz 4 : ' : DBGSSRC_SEARCH_STRING - Buffer contains the desired search string. 
3; 2615 7 $ 1 ! OUTPUTS 
3 ois 7 1! NONE 
3 261 738 «1! 
3; 2618 739 «#1 
3; 2619 740 BEGIN 
3; 2620 741 
3 2621 74 LOCAL f 
3; 26 § 74 SEARCH_FLAG; ' Flag set to non-zero value to indicate 
3; 26 744 : the kind of SEARCH option is 
3: 2624 745 active 
3 2625 74 
; 26 § 74 A 
: vay ° : If no search string string is given, signal the warning message. 
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767 «#1 


55 bytes, 
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14-Sep- 
If .DBGSSRC_SEARCH_STRINGCO) EQL 0 THEN ce aiieael aan 
: oy 1” ALi To consend option. The value set fo the SEARCH_FLAG 
= SEARCH/IDENT/ALL. “= SEARCH/IBDENT/NEXT. 
i 3° -- 1 PRREA/STRINGTALE: 4 -- SEARCH/STRING/NEXT ° 


SEARCH_FLAG = .SEARCH_BY_STRING_FLAG * 2 + .SEARCH_NEXT_FLAG ¢ 1; 


: Perform the search. 


DBGSSRC_TYPE_LNUM_SOURCE(. meas rere. -LOW LNUM, .LOW STMT, .HIGHLNUM, 
HIGH_STMT, .SEARCH FLAG, FALSE); 


RETURN; 
END; 
0000 00000 sENTRY DBGSSRC_SEARCH_CMD, Save nothing 
00000000' EF 95 0000 TSTB © DBGSSRC“SEARCH-STRING 
0D 12 0000 BNEQ 1 
00028E28 8F DD Bonen PUSHL #167464 
00000000G 00 01 FB 309 CALLS #1, LIBSSIGNAL 
50 AC 0 00017 1$ MOVL SEAREH BY_STRING_F RO 
50 1¢ BC40 3E $018 MOVAW a@SEARCA wext RFLAGEROS, SEARCH_FLAG 
50 06 000 INCL SEARCH FLAG 
7E D4 00022 CLRL SP) 
5 b0 0024 PUSHL SEARCH FLAG 
7E 10 ac 7D 309 6 MOVa HIGH_LRUM, oish) 
7E 08 AC 7D 0002A MOVa LOW W CRUR -(SP) 
04 AC OD 0002 PUSHL gg 
0000v CF 07 FB 99 1 CALLS DBGSSRC _TYPE_LNUM_SOURCE 
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GSOURCE 16-Sep-1984 02:35:55 AX-11 Bligs-32 V4.0-74 
von 10-808- 1388 95:7 746 DEBUG. SRCIDBGSOURCE 049: 1 
H Ve 768 } GLOBAL ROUTINE DBGSSRC_SET_MAX_FILES(MAX_FILES): NOVALUE = 
: 220 +88 1 ! FUNCTION 
; 2651 abe This routine sets the maximum number of source files DEBUG will keep 
3; 26 ¢ ak 1! open at any one time. It is called during the processing of the 
3; 26 “77> 64 SET MAX_SOURCE_FILES command. The purpose of this command is to give 
3 2654 774:~«1:! the user some control over the number of source files DEBUG will keep 
3 2655 7s i open. The reason for this is that DEBUG can interfere with the correct 
3 O28 778 1! operation of the user program if the program itself has many files open 
3; 265 igs and the extra DEBUG files cause the program to exceed its open channel 
; 2658 we}: quota. 
3 2659 779 1! 
; 2660 reo 1! INPUTS 
> 2661 fer 13 MAX_FILES = The maximum number of source files DEBUG is to keep open 
3 668 782 1! at any one time. 
3 266 783 1! 
3 2664 784 1 ! OUTPUTS 
; 2665 re? : : NONE 
: Seer 187 
; 2668 788 BEGIN 
3 2669 789 
Se aye 
3: 267 279 ! Make sure the number of files the user specified is reasonable; otherwise 
s eh 3794 signal an error. 
> 2675 795 iF (.MAX_FILES LSS 1) OR (.MAX_FILES GTR MAX_MAX_FILES) 
3; 2676 $i36 H 
3; 2677 797 SIGNAL (DBG$_INVNUMSRC); 
Be Bs 
: 2680 800 ! Set the maximum number of open source files in DBGSSRC_MAX_FILES and then 
; 268, 280 call DBGSSRC_INIT to initialize that number of Source File Control Blocks. 
3 688 80 DBGSSRC_MAX_FILES = .MAX_FILES; 
; sone 2804 DBGSSRC_INIT(); 
3 2685 2805 RETURN; 
3 sone 2806 2 
3; 2687 2807 1 END; 
0000 00000 ENTRY DBGSSRC_SET_MAX_FILES, Save nothing 
046 AC OD B08 TSTL MAX_FILES 
06 1 00 BLEQ 
14 04 as ih id ares MAX_FILES, #20 
00028CC¢8 rt DD % 1$: PUSHL #167112 
0000000G 00 1 re 1 CALLS #1, LIBSSIGNAL 
vet's? tl EF 04 AC O 1A 2%: MOVL MAX_FILES, DBGSSRC_MAX_FILES 
EE60 = CF 0 FB 38 CALLS #0, “DBGSSAC_INIT 
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LOBAL ROUTINE DBGSSRC_SET_SOURCE(MODRSTPTR, DIRLIST): NOVALUE = 


FUNCTION 
This routine handles the semantic processing of the SET SOURCE and SET 
SOURCE/MODULE=xxx commands. It accepts a Module RST Entry pointer if 
/MODULE was specified on the command and it accepts a list of directory 
names, each given by a Source Ag tag | Search List entry. It Shen 
builds a Source Directory Search List Header Block for the specified 
module and enters this block on the Linked List pointed to oy variable 
DBGSSRC_DIR_LIST. It also throws away any directory search list super- 
ceded by the new List. 


This routine verfies each directory name on the List, using the SPARSE 
system service. If any are invalid, an error is signalled. 


The source directory search Lists are eventually used by the routine 
DBGSSRC_OPEN_FILE. 


INPUTS 
MODRSTPTR = A peteser to the Module RST Entry of the module specified 
on the SET SOURCE/MODULE command. If the /MODULE qualifier 
was not present on the command, MODRSTPTR must be zero. 


DIRLIST = A pointer to a source directory search list. More prec teety. 
DIRLIST points to the first of a List of oar Linked Source 
‘Directory Search List (SDSL) Entries. Each SDSL Entry con- 
tains a directory name (or even a full file name) in counted 
ASCII. DIRLIST may not be zero--an empty directory List on 
the SET SOURCE command is a syntax error. 


OUTPUTS 
NONE 


G 
‘ 
i 


BEGIN 


DERI at as tk tk kk kd ot a 


Pp 
MODRSTPTR: REF RSTSENTRY, 


Pointer to Module RST Entry or zero 
DIRLIST: REF SDSLSENTRY; 


Pointer to directory List 


oe 


OCAL 
BLANK_COUNT, Holds a count of the number of 
leading blanks in the directory 
name as the user entered it. 

Used to hold a single character 
Gur ing blank-s rteptng. 

Pointer that is used to step through 
3 osree tery name 
character by character, during 
blank-stripping. 

Holds a count of the number of 
non=-blank characters in a 
directory name that is being 
verified. 

Pointer that is used to walk through 
the Linked List of headers. 

Output buffer for call to SPARSE. 


CHAR, 
CHAR_PTR, 


PUPP BS BB BB EE EE BANANA PPP POPPINIPYD 2 2 OO 
NOUS WN 0 OD NO UE WIN $0 ODNOAUE WN (OOO VNOAU EWR C OONOU SW O0@ 


COUNT, 


ww 


DIRPTR: REF SDSLSHEADER, 
DUMMY_BUF: VECTOR (132, BYTE), 


on 


htots 
fwn—-0O0ew 
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1 
1 
3 65 ! (this is not actually used since 3 
: 274 6 : we are only interested in the s 
3; 2748 6 : status code returned 7 SPARSE) 3 
3; 2749 6 ENTRYPTR: REF SDSLSENTRY, ' Pointer that is used to walk through : 
: 2750 § ! a linked List of directory names. 3 
3: 2751 870 LAST_DIRPTR: REF SDSLSHEADER,  ! Points to the Last header in the List. 3 
3 27 ¢ 71 NEW_BIRPTR: REF SDSLSHEADER, ' Points to the new header record that 5 
3; 27 7 ‘ is allocated. F 
3: 2754 7 STATUS, ' Return code from SPARSE 3 
: 2755 874 STRING_BUF: VECTOR (132, BYTE], ! Input buffer for call to SPARSE 5 
3: 2756 875 STRING_BUF _PTR, ! Pointer to an output buffer where a 3 
: rel 4 : directory name will be copied ; 
: 2758 7 ' Guring validation of that 3 
; 2759 878 : direc 4 name. F 
; 2760 879 TSTFAB: SFAB_DECL, ' FAB block for SPARSE 3 
3: 2761 880 TSTNAM: SNAM_DECL; ' NAM block for SPARSE : 
3 766 881 $ 
3; 276 88 3 
: 2764 88 3 
3; 2765 884 ! Reinitialize all Source File Control Blocks. This forces presently F 
: 2766 885 : -—- files to be reopened using the new source directories we are : 
: 2767 886 ' about to set. 3 
3; 2768 887 ! : 
3; 2769 888 DBGSSRC_INIT (); : 
3: 2770 889 3 
3: 2771 890 ; 
3 $or6 2891 § ' Initialize the fields of the FAB and the NAM blocks $ 
3: 277 $898 ‘ 3 
3 2774 P 3H SFAB_INIT ( FAB = TSTFAB, : 
> 2775 P 2894 DNA = STRING. BUF, ; 
3: 2776 344 DNS = 132); : 
: 2777 P 2896 SNAM_INIT ( NAM = TSTNAM 3 
> 2778 P 2897 ESA = DUMMY_BUF, : 
: 2779 P 2898 § ESS = 132, $ 
3; 2780 P 2899 RSA = oypny BUF . : 
3; 2781 2900 2 RSS = 132); : 
+: ns) 
> 2784 308 ! We first verify the List that is given to us. Walk through the List of 3 
3 LF soue directory names, verfifying that each one is valid. 3 
3; 2787 2306 ENTRYPTR = .DIRLIST; 3 
3; 2788 907 WHILE .ENTRYPTR NEQ 0 DO Hy 
3; 2789 908 BEGIN 3 
3: 2790 909 3 
3: 2791 910 , 3 
3 a. ae Initialize char_ptr to the start of the directory name 3 
3 2794 318 CHAR_PTR = ENTRYPTRCSDSLSA_ENT_DIRNAME); ; 
im Bi : 
3 2797 916 ' Inintialize STRING_BUF_PTR to the address of the string buffer ; 
3 38 4, that is declared in the FAB. : 
; 2800 319 STRING_BUF_PTR = STRING_BUF ; : 
3; 2801 360 3 
3; 2802 921 : 
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16-Sep-1984 02:35:55 Ax-11 BLi 
132808= 138s 93:93:28 DEBUG. SRC 
: Initialize blank count and count 

BLANK. COUNT = 0; 

COUNT = 0; 


ib86 


Loop through the leading blanks to strip them off. 
WHILE, .BLANK. COUNT LSS .ENTRYPTRCSDSLS$B_ENT_DIRLEN] DO 
CHAR = CHSRCHAR_A (CHAR 


PTR); 
IF .CHAR NEQ DBGSK_BLANR THEN EXITLOOP; 
BLANK COUNT = .BLANK_COUNT ¢ 1; 


! If the name is all blanks, signal an error. This is caused by 
a pair of commas with only blanks between them. 


if .BLANK_COUNT EQL .ENTRYPTRCSDSLS$B_ENT_DIRLEN] 
SIGNAL (DBG$_INVDIRNAM, 1, UPLIT BYTE (ZASCIC * ')); 


' Now soop through the non-blank characters. Move each character 
! to the STRING_BUF_PTR buffer temporarily and translate to 
' upper case. 


' 
' 
' 
' 
vas te + .BLANK_COUNT LSS .ENTRYPTRCSDSLSB_ENT_DIRLEN] DO 


COUNT = .COUNT + 1; 
i CHAR LEQ ‘z* AND .CHAR GEQ ‘a’ 


N 
CHAR = .CHAR = ("a° = °A'); 


CHSWCHAR_A (.CHAR, STRING BUF _PTR); 
—_ = CASRCHAR_A (CHAR_PTR); 


! Copy the blank_stripped and translated directory name back 
into the original entry. 
CHSMOVE (.COUNT, STRING BUF, ENTRYPTRCSDSLSA_ENT_DIRNAME)); 
ENTRYPTRCSDSL$B_ENT_DIRCEN] = .COUNT; 
! Now check the directory name for syntactic validity. This is done 
: by SPARSE so that RMS does the checking. 
TSTFABLE ABS DNS] = .COUNT; 
STATUS = SPARSE (FAB = TSTFAB); 
i wor - STATUS 
SIGNAL (DBG$_INVDIRNAM, 1, ENTRYPTRCSDSLSB_ENT_DIRLEN), .STATUS); 


ENTRYPTR = .ENTRYPTRESDSLSL_ENT_FLINK); 


reef 


Be Be Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Ge Se Se Se Se Ge Ge Fe Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se ae se FHS Se Se Se Se Se Seas 


8 
ihese -1984 02:35:55 AX-11 Bliss-32 v4.0- Pa 5 
a tiae ts 1 95: 33:23 DEBUG. cRCSDBGSOURCE B39; 31 9¢ 18 
979 END; 
a 
9 ¢ ! If we get this far we have a valid directory List. Attempt to find a 
9 ' pirectery list for the same module in the current Source irectory Search 
: : } List. If we find one, we remove it from the Lis 
9 § DIRPTR = .DBGSSRC_DIR_LIST; 
9 WHILE .DIRPTR NEQ’O DO 
988 BEGIN 
989 IF .DIRPTRCSDSLSL_MODPTR] EQL .MODRSTPTR 
990 THEN 
991 4 BEGIN 
338 4 DBGSSRC_CANCEL_SOURCE (.DIRPTRCSDSLSL_MODPTR)); 
993 4 EXITLOOP; 
33¢ 3 END; 
oe DIRPTR = .DIRPTRCSDSLSL_FLINK); 
9 END; 
se 
000 ' Allocate and build a new Source Directory List Header Block. 
Bas Insert it at the end of the Source Directory Search List. 
00 NE EW_DIRPTR = DBGSGET ope nory (SDSLSK_HDR_SIZE); 
004 NEW preter sss DSL$L_LIST_PTR] = .DIRLTST;~ 
st NEW DIRPTRCSDSLSL “MODPTRI = “HODRSTPIR: 
07 
Bos ; Walk to the end of the Source Directory Search List. 
010 DIRPTR = DBGSSRC_DIR LIST; 
3011 WHILE .DIRPTRCSDSL$L-FLINK] NEQ 0 DO 
3018 DIRPTR = .DIRPTRESDSLSL_FLINK); 
014 2 DIRPTRCSDSLSL_FLINK] = .NEW_DIRPTR; 
sei2 2 RETURN; 
016 2 
3017 1 END; 
-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 
20 01 00189 P.AAZ: .ASCII <1>\ \ : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY na eek rear SOURCE. Save R2,R3,R4,R5,R6.R7,-; 2808 
SE FEG4A OC 9 
EES3 CF b 0007 CALLS @ *paesére INI : 
8F 00 6E ‘ 09 fe 0015 moves i‘. (SP), #0, +80, SRMS_PTR : ct 
64 AE 5003 BF BO 0001 MOVW #20483, SRMS_PTR 


<o | 
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SA 0084 43 GE $3 
A7 08 3 be boee 3$ 
ac 38 Boars 
sot ee 
38 06 Goore 
A7 08 05 Fo 5 4$: 
00000000° it of 8 
ff 0D Be 
0002897A 8F OD 
900000006 99 Os FR B0096 
A? 08 00 ED 0OA1 
1F OOA7 
56 D6 OO00A9 
0000007A GF 58 01 eta 
9 14 0008 
00000061 BF 8 4 a4 
58 20 08 
i oR Ra 
A7 0084 C 6 Yi pce 7$ 
an 6 38 O00 
0099 ~=«OCE 6 90 0000 
64 a GF D 
000000006 09 9h 08 , 
14 6— €E E 
ot 8 Bes 
vooooocne og 02028974 BF Bb BOoET 
99 9 00 FC 8$: 
FF58 1 FF 


pal9be $S:i7:46 — EDeBUG. SRCSDBGSOURCE -039; 1 


#3. SRS _PTReG? 

#2, $RMS-PTR+ 

STRING_BOF SRMS_PTRO48 
#-124, SRMS_PTR*S 

#0, (SP), #0, #96, SRMS_PTR 


#24578, SRMS_PTR 
#-124, SRMS_PTR+2 
DUnAY BUF SRMS_PTR+4 
#-124, $RMS_PTRT10 
DUMMY _BUF, SRMS_PTR*12 
ke EnTRYPTR 


$ 

(ENTRYPTR), CHAR_PTR 
STRING. BUF 
BLANK _COUNT 
tt #8, 4(ENTRYPTR), BLANK_COUNT 


(CHAR_PTR)+, CHAR 
CHAR, #32 


STRING_BUF _PTR 


ANK_ COUNT 
#0. #8, 4(ENTRYPTR), BLANK_COUNT 
P.AAZ 
#166266 
#3, LIBSSIGNAL 
BLANK COUNT, COUNT, RO 
#0, #8, 4CENTRYPTRS, RO 
OUNT 
CHAR, #122 
CHAR, #97 
RING_BUF _PTR)+ 
+, CHAR 
ING_BUF, S(ENTRYPTR) 
NTRYPTRS 
AB+53 


L 
NTRYPTR 


g 
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y 1 Otis 
DEBUG. SRC JOBGSOURCE .832;1 
SSRC_DIR_LIST, DIRPTR 


AXx-1 


8 
w$3p-1986 19:17:46 


1 
1 


9 
989 
2992 
991 
987 
00 
004 
00 
01 
01 
3012 
01 
01 


o 
ncn 


» MODRSTPTR 
DBGSSRC_CANCEL_SOURCE 
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Routine Base: DBGSCODE + 1270 


328 bytes, 


; Routine Size: 


SS 


-———_- ------ 


| BSS ce 


3 org 1 
5 naif 4 : 
; 290 8 : 4 
3 29046 0 § 1 
; 2905 8 ? : 
; 309 8 . ie 
; 2908 § 1 
3; 2909 0 1 
: 2910 0 3 1 
: 2911 5 1 
3 aig 0 1 
3; 291 031 #1 
3: 29146 0 ¢ 1 
3; 2915 0 1 
; 2916 034 +1 
: 2917 035 1 
3; 2918 0 $ 1 
3: 2919 037 #1 
3 350 038 #1 
3: 2921 039 1 
; 3s¢ 040 1 
3; 292 041 1 
3 9S¢ Bee 1 
3; 2925 043 1 
3: 2926 044 1 
3 2927 045 1 
3: 2928 sne8 1 
3: 2929 047 1 
3; 29 3048 1 
3: 2931 3049 1 
3: 293 3050 1 
3; 293 051 1 
3 2934 03g 1 
3 2935 053 (1 
3; 2936 054 1 
3: 2937 055 «(1 
3; 2938 p29 1 
3: 2939 057 #1 
3 2940 058 1 
3 2941 059 

3 ra | 060 

3: 296 be) 

s 29446 § 

: 5 06 

3; 294 064 

3 294 5 

3 2948 

: $380 O68 

> 2951 

: 836 

3 71 

3: 29546 ie 

3: 2955 7 

3: 2956 074 


H 8 
16-Sep-1984 02:35: Pa 88 
12-8087 1388 96:73: 9° 16) 
GLOBAL ROUTINE DBGSSRC_SHOW_SOURCE: NOVALUE = 


FUNCTION 
This routine handles the semantics of the SHOW SOURCE command. it thus 
formats and prints the contents of the directory search Lists pointed to 
by DBGSSRC_DIR_LIST. If one or more SET SOURCE/MODULE commands are in 
effect, thé oufput has this general format: 


55 AX-11 OL igsete vA On 08s 
46 DEBUG. SRC JDBGSOURCE .832;1 


source directory agerch List for MODNAME1: 
CFIRST.DIR 


OGNAMES 
source d foe gry search List for MODNAME2: 


de Fhe gett 

0B1:COIRS.01R31.01R32) 

source e}rectory search List for all other modules: 
C.SUBDIRI 


If a SET SOURCE command is in effect but no SET SOURCE/MODULE command is 
in effect, this format is used: 


source Oievetery earch List for all modules: 
DIRNAME1 
DIRNAME2 
And if no SET SOURCE command is in effect at all, this is output: 
no source directory search List in effect 


ALL directory names are output exactly as the user originally entered 
them. There is no attempt to translate logical names or determite 
defaults until the directory name is actua Ly used to open a file. 
Hence no such translations are done for the SHOW SOURCE display. 


INPUTS 
NON 


OUTPUTS 
NONE 


BEGIN 


LOCAL 
DEF _DIRPTR : REF SDSLSHEADER, ' Points to the default 
: Source Directory Search List, 
‘ f one exists. 
DIRPTR : REF SDSLSHEADER, ' A pointer used to walk through the 
: Linked List of Source Directory 
4 Search List header blocks. 
MODNAMEPTR; ! Points to a module name. 
! If there is no Source Directory Search List in effect, print a message 
: to that effect and return. 


it .DBGS$SRC_DIR_LIST EQL 0 
THEN 


<o 
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16-Sep=1 :35: - - .0- 
1b-sSep-1964 02:35:55 YAR-I1 BLigs=32 v4.00743 | 


erele 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘no directory search List in effect')); 
+ § sal 4 , 


: If SET SOURCE is in effect but no SET SOURCE/MODULE= is in effect, 
} ghey the “‘for all modules’’ header message and the corresponding 
' List of directory names. Then return. 


1 
DIRPTR = ;DBGSSRC DIR_LIST; 
IF -DIRPTR SDSLSC_MODPTR) EQL 0 


-DIRPTRESDSLSL_FLINK) EQL 0 
THEN 


BEGIN 
DBGSPRINT (UPLIT BYTE( 

ZASCIC ‘source directory search List for all modules:')); 
DBGSNEWLINE(); 
OUTPUT_DIR_LIST(.DIRPTRESDSLSL_LIST_PTR}); 
RETURN: 


' If we reach this pot there is at least one directory list for a 
! specific module. Loop through all the Source Directory Search List 
cet Blocks and print the directory List for each corresponding 
i — 


DEF _DIRPTR = 0; 
WHICE .DIRPTR NEQ 0 DO 
BEGIN 


' Check for default directory List (SET SOURCE with no 

! module specified). Store this away in DEF_DIRPTR since 
it will be printed Last. 

if .DIRPTRESDSLSL_MODPTR] EQL 0 

THEN 


DEF_DIRPTR = .DIRPTR 


! Else this SDSL Header Block is for a specific module. Print a 
! header message with the module name and print the corresponding 
directory names. ‘ 


ELSE 


BEGIN 
DBGSSTA SYMNAME (.DIRPTRCSDSLSL_MODPTR], MODNAMEPTR) ; 
DBGSPRIAT (UPLIT BYTE( 
ZASCIC ‘source directory search list for !AC:"), 
-MODNAMEPTR) ; 
DBGSNEWLINE(); 
OUTPUT _DIR_LIST ( DIRPTRCSDSLSL_LIST_PTRI); 


<o | 
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iam ee 


Link to the next SDSL Header Block and loop 


DIRPTR = .DIRPTRCSDSLSL_FLINK); 
END; ! While Loop 


!' Now output the fetowts directory List used for all other modules 
' if such a List is present. Then return. 


If .DEF_DIRPTR NEQ 0 
THEN 
BEGIN 
DBGSPRINT (UPLIT BYTE( 
ZASCIC ‘source directory List for all other modules:')); 
DBGSNEWLINE(); 
QuTPUT DIR LIST (. DEF _DIRPTRCSOSLSL_LIST_PTRI); 


RETURN; 
END; 


ab a a ts bt ts et tk te a tt tt 


PNA FEE A I ne re ve 
WN SO OONAVE WN OOOO ur 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


73 20 79 72 6F 74 $3 65 72 69 64 20 6F 6€ 2 018B P.ABA: .ASCII \''no directory search List in effect\ 3 
65 20 6€ 69 20 7% 69 6C 20 6 ‘ 61 o2 Bian ; 
6F 74 63 65 72 69 66 2 5 63 7 $ 6F $ 20 O1AE P.ABB: .ASCII \-source directory search List for all mo\ : 
On eecoe sede oe ge ae | 
A $3 é 6C t5 64 00106 .ASCII \dules:\ : 
6F 74 63 65 72 69 66 2 $3 63 3 Se ae, $3 O1DC P.ABC: .ASCII \%source directory search List for !AC:\ : 
20 74 73 69 6C 20 68 HH is 2 $3 73 $3 vy ig Bates : 
6F 74 63 65 72 69 64 20 65 $3 $) $0 3 § 0202 P.ABD: .ASCII \,source directory List for all other mod\ : 
i ee ee ee tt | 
A $ 65 6C 6 0 sf -ASCII \ules:\ : 
-PSECT DBGSCODE.NOWRT, SHR, PIC,O 

OOFC 00000 sENTRY DBGSSRC_SHOW SOURCE, Save R2,R3,R4,R5,R6,R7 ; 3018 
7 9900 ' €F 9E 0000 MOVAB DBGSSRC~DIR_CIST, R? : 
g G 8 OF MOVAB DBGSNEWCINE, R6 3 
900006 3E 00010 MOVAB DBGSPRINT, RS : 
; Bs C ie BURL pines " 

7 Q TSTL DBGSSRC_DIR_LIST : 3073 
9 BNEQ 3 

4 oD PUSHL R4 ; 3076 
65 1 FB CALLS #1, DBGSPRINT 3 

66 0 FB A CALLS #0, DBGSNEWLINE ; 3077 


lcs tchecrebiepeamacn leaden ama einigtnanareeneieetcaitaaiesagnaaeiaamapeapaaiign inate 


16 
vOu=000 ESR QRTSEEE  YASGE.GhssaZelZ83, Paee 18) 


04 D RET : O34 
52 67 D F 1$: MOVL  § DBGSSRC_DIR_LIST, DIRPTR : 
08 A : TSTL B<DIRPTR) : 
1 BNEG $ : 
6 D TSTL  (DIRPTR) + 3089 
ms BNEQ $ ae 3 
23 AG OO PUSH : 3092 
65 oi FB CALLS ai DBGSPRINT : 
66 Fe 49 CALLS DBGSNEWL INE + 3094 
04 A 2 BUSHL eCbIR + 3095 
D4 00048 2$: CLAL DEF _DIRPTR : 3105 
3) D GA $f: TSTL DIRPTR : 3388 
1 4C BEQL : 
08 A2 OD O04 TSTL (DIRPTR) + 31146 
9 1 3 BNEG ; 
53 2 dO 00053 MOVL DIRPTR, DEF _DIRPTR + 3116 
if 11 0096 BRB ; 
SE DD 00058 4$: PUSHL ies 3 3125 
08 A2 0D 0005A PUSHL  B(DIR F 
000000006 00 02 FB 0005D CALLS #2. DBGSSTA_ SYMNAME : 
6E DD 00064 PUSHL NAMEPT : 3128 
51 AG OF 00066 PUSHAB e ABC : 3126 
65 02 FB 00069 CALLS 2, DBGSPRINT : 
66 00 FB 0006C CALLS DBGSNEWL INE : 3129 
04 A2 dD O006F PUSHL 4¢ IR : 31 
0000v CF 01 FB 007@ CALLS OUTPUT_DIR_LIST : 
52 62 00 00077 S$: MOVL ATR SiN BIRPTR + 3136 
ce 11 0007A BRB : 3106 
53 DS 0007C 6S: TSTL DEF_DIRPTR > 314 
11 13 0007E BEQL 8$ ~ : | 
77 AG 9F 00080 PUSHAB P.ABD + 3145 
65 01 FB 00085 CALLS #1, DBGSPR : 
66 09 FB 00086 CALLS 40, DBCSNEUL [NE : 3147 
06 A3 dD 00089 PUSHL 4 (DEF DIRPTR) : 3148 
0000v CF 01 FB O008C 7$: CALLS , OOTPUT_DIR_LIST 3 
04 00091 8$: RET : 3153 
3; Routine Size: 146 bytes, Routine Base: DBGSCODE + 1388 


8 
GSOURCE ibese -1984 02:35:55 AX-11 Bliss-32 v4. 
it Vexgeo=tSRe 98:93:23 | HOS Ohi ss sesame 
ROUTINE DBGSSRC_TYPE_LINE(LINE_NUM, STAT_NUM, SRC_FILE, RECLNUM, STEP_FLAG): = 


FUNCTION 

This routine accepts the Line number and statement number of a source 
Line, a pointer to the Declare Source File DST command for the corre- 
sponding source file, and the record number of the Line within that 
file. t then reads in the text of the source Line and causes it to be 
typed out to the user. It is col log by OOSSSRE TYPE LMU OUNCE each 
time that routine finds a desired Line number in the current module's 
Source Line Correlation DST Record. 


This routine cails DBGSSRC_OPEN Five with the pointer to the Declare 
Source File DST command (where fhe full file declaration is found). 
DBGSSRC_OPEN_FILE opens the file (unless it is already o ae 


0-74 Page 9 
O85: 1 age 38 


SELSU ENE Se Ue Abe OSES 


; 154 1 

188 4 | 

3 1 

: 1 § 1! 

H 160 1! 

; 161 1! 

; 196 1! 

: 165 1! 

: 164 1! 

; 165 1! 

3 196 1: 

3 305 167 1! 

3; 305 168 1! returns @ pointer to the file's Source File Control Block (SFC This 
; 305 19? 1! pointer is then pescee to DBGSSRC_READ_FILE to read in the actual source 
3; 305 170 1! image. If SEARCH command is active then calls SRCS$SRC_SEARCH to locate 
3; 305 ime the desired string. If matched string is not found, exit from the 

; 305 Ite 1} routine and return status back to caller. Finally, DBGSSRC_OUTPUT_LINE is 
3; 305 1735 1! is called to print the source Line. 

; 305 174 «1! 

; 305 175 1! INPUTS 

3; 305 176 1! LINE_NUM = The Line number of the Line to be read and printed. If the 
; 3060 177 1! Line is unnumbered (has no Line number as is true for comments 
; et 178 : : in some languages), LINE_NUM should be negative. 

3 068 180 1! STMT_NUM = The statement number of the Line to be read and printed. If 
3; 3064 187 1! a@ statement number is not oper icepte (which is the case in 

3; 3065 18¢ , : most Languages), STMT_NUM should be zero. 

3 Oe? 184 1! SRC_FILE = A pointer to the Declare Source File command for the desired 
; 3068 3185 1! source file in the Source Line Correlation DST Record. This 
3; 3069 $156 ,: pointer defines which file the desired source Line should be 
3 tA at : read from. 

5 ors 189 1! REC_NUM = The record number in the SRC_FILE source file of the source 

3; 307 190 1! Line to be read and printed. This record number also comes 

3 B78 13) ; from the Source Line Correlation DST Record. 

3 O08 138 : STEP_FLAG = Flag set to TRUE to indicate this is called from STEP. 

3; 3078 195 1 ! OUTPUTS 

3; 3079 138 1! NON 

3; 30 197 1! 

3; 3081 198 1 

: 308 199 BEGIN 

3; 308 00 

3; 3084 01 MAP 

3; 3085 34 SRC_FILE: REF DSTSSRC_COMMAND; ! Pointer to Define Source File command 
; 06 0 ‘ in Source Correlation DST Record 
: 308 04 

3; 3088 5 LOCAL 

3 Don BUFLEN, : The Length in characters of the input 
3 : ne 

3; 3091 $ BUFPTR: REF VECTORC,BYTE), ' Pointer to the input buffer 

; 309 SEARCH_STATUS, : Flag set to TRUE if the search string 
:; 309 10 : is found, for other conditions, 


| “ 8 
GSOURCE 66-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 93 
vOes 000 $2368 1388 93:7 746 DEBUG. SRCIDBGSOURCE 039: 1 . ah 
: flag set to FALSE 
SRC_FILE_CNTRL_BLK: ! Pointer to the Source File 
REF SFCBSBLOCK; ! Control Block 


— 


! Signal an error if SRC_FILE is not declared or set in Source File 
: Correlation DST Record. 


if .SRC_FILE EQL 0 THEM SIGNAL(DBGS_INVDSTREC); 


oo 
wr 


} Abort the source output if the user interrupted it with Control-Y DEBUG. 
SABORT_ON_CONTROL_Y: 

! Initialize SEARCH_STATUS to FALSE for all non-search commands, and default 
to no matches for SEARCH command. 

SEARCH_STATUS = FALSE; 


23333332 


! Calls OPEN LINE routine to open the Source File pointed by Declare Source 
} File DST Command in the given directory. 


DBGSSRC_OPEN_FILE(.SRC_FILE,SRC_FILE_CNTRL_BLK,.STEP_FLAG); 


DBGSSRC_READ_FILE(.SRC_FILE_CNTRL_BLK, .REC_NUM,BUFPTR,BUFLEN) ; 


Call SEARCH routine to search the desried string if SEARCH command is in 
action. If we did not find the matched string, return the status to 
TYPE LNUM SOURCE, otherwise call OUTPUT LINE routine to output the Line. 


' 
i 
i 
] 
if .DBGSSRC_SEARCH_FLAG NEQ 0 
THEN 

BEGIN 

SEARCH_STATUS = DBGSSRC_SEARCH( .BUFPTR, .BUFLEN) ; 

IF NOT~.SEARCH_STATUS TREN RETURN .SEARCH_STATUS; 


BEBE EEE ESE & FAWN MAININIGPPOPUNININIPINONIDN 2 OO Oe 
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! Call the OUTPUT_LINE routine to print the source line. However, if a 
' screen display for source Lines is active, we call DBGSSCR_SOURCE_LINE 
instead as the output routine. 
1 SOURCE_TO_SCREEN_FLAG 
DBGSSCR_SOURCE _LINE(.LINE NUM 

~SRC_FILECDSTS$W_SRC_Df _FILEIO), .REC_NUM, .BUFLEN, .BUFPTR) 


fF. 
HEN 
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ELSE 
DBGSSRC_OUTPUT_LINE(.LINE_NUM,.STMT_NUM, .BUFPTR, .BUFLEN); 


: Calls READ SOURCE FILE routine to read in Source File Records. 
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16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 94 
12-80 8= 1382 96:73:22 DEBUG. SRCIDBGSOURCE 64551 9 47) 
6 
e IF .LINE_NUM NEQ <1 THEN DBGSSRC NEXT_LNUM = .LINE_NUM + 1; 
0 IF ,STMT-NUM NEQ 0 THEN DBGSSRC_REXT STMT = .STMT_RUM + 1; 
4 DBGSSRC_NEXT_MODRSTPTR = .DBGSSRC_MODRSTPTR; 
URN .SEARCH_STATUS; 
78 RETURN .SEARCH_STAT 
75 1 END; 
.EXTRN DBGSGV_CONTROL 
007C 00000 DBGSSRC_TYPE_LINE: 
woRB ave R2,R3,R4,R5,R6 3 3154 
56 000000006 00 "9E 0000 MOVAB LIBSSIGNAL, R : 
55 00000000' EF 9€E 0000 MOVAB DBGSSRC_NEXT_LNUM, RS : 
54 00000000' FF H 00010 MOV DAGSSRCTSEARTH_FLAG, R4 : 
2 C C2 00017 SUBL2 #12, SP : 
5 OC AC DO 0001A MOVL  SRC_FILE, R2 : 3220 
09 12 OO0iE BNEQ 1$ : 
0002832A 8F DD 990 PUSHL 164650 : 
66 01 FB 00026 CALLS #1, LIBSSIGNAL : 
09 000000006 00 01 €1 00029 1$: BC 1 DBGSGV_CONTROL+1, 2$ : 
000280E8 8F DD 00031 PUSHL #164 : 
&6 01 FB 00037 CALLS #1, LIBSSIGNAL : 
53 D4 0003A 2s: CLRL SEARCH STATUS : 3231 
14 AC DD 0003 PUSHL STEP_FCAG : 3237 
04 AE 99F 0003F PUSHAB SRC_FILE_CNTRL_BLK 3 
52 DD 90042 PUSHL : 
F39B CCF 03 FB 00044 CALLS #3, DBGSSRC_OPEN_FILE : 
04 AE OF 00049 PUSHAB BUFLEN + 3242 
OC AE 9F 0004C PUSHAB BUFPTR : 
10 AC DD 0004F PUSHL REC_NUM : 
OC AE DD 000532 PUSHL SRC"FILE_CNTRL_BLK F 
FA3D CF 04 FB 0005 CALLS #4, ~DBGSSRC_READ FILE ; 
64 D3 00034 TSTL DBGSSRC_SEARCH_FCAG : 3249 
11 13 0005c BEQL $ : 
04 AE DD 0005E PUSHL BUFLEN : 3252 
OC AE DD 90061 PUSHL BUFPTR : 
FC63— CCF 02 FB 00064 CALLS #2, DBGSSRC_SEARCH : 
53 50 D0 00069 MOVL RO, SEARCH STATUS 3 
4c 53 £9 0006C BLBC  SEARCH_STATUS, 8$ ; 53 
19 0198 c4 £9 OO6F 3$: BLBC  § SOURCE-TO_SCREEN_FLAG, 4$ : 3261 
AE 0D 4 PUSHL BUFPTR : 3264 
08 AE ODD 9077 PUSHL BUFLEN : 
1 A po 9 7A PUSHL REC_NUM ; 
7E 03 a2 3C 00070 MOVZWL 3(R2), =(SP) : 
04 aC dD 00081 PUSHL LINE NUM : 3263 
000000006 00 3 FB 28 CALLS >. BBGSSCR_SOURCE _LINE ; 
4 AE DD 0008D 4s: PUSHL BUFLEN : 3267 
C AE bb 9 PUSHL FPTR : 
7E 4 AC 7D 0009 mova LINE NUM, =(SP) : 
F829 f 04 FB 0009 CALLS 84, BBG$SRC OUTPUT _LINE F 
FEFEFFFE F 04 AC 01 0009C S$: CMPL LINE NUM, a : 3269 
05 13 O00A4 BEQL. = 6 : 


pinnnininciiienseeiatinanat 
8 5 
DBGSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 P 95 
von 135-1 98e 93:75:28 tDEBUG. SRC DBGSOURCE .B32;1 29 647) 
65 046 AC 01 1 O0xg ADDL3 #1, LINE_NUM, DBGSSRC_NEXT_LNUM : 
08 AC 03 0 AB 6S st TAT_NUM ; 3270 
08 AS 08 at 64 C1 $080 ADDL3 #1, STMT_NUM, DBGSSRC_NEXT_STMT : 
06 A FC AS DO 00086 7$: MOVL  DBGSSRC_MODRSTPTR, DBGSSRC“NEXT_MODRSTPTR : 3271 
50 53 DO 00088 8$: MOVL SEARCH_STATUS, RO : 3273 
04 O00BE RET : 3275 


; Routine Size: 191 bytes, Routine Base: DBGSCODE + 144A 


| 
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GLOBAL ROUTINE SOTIERS, 7 IEE LI SOURCE nee TTR LOWLNUM, LOWSTMT, 


, HIGHSTMT 
SEARCH_FLAG, STEP_FLAG): NOVALUE = 


This routine accepts a Module RST Entry pointer and a Line number range 
and types out all source Lines, or, ALL matched strings or NEXT matched 
string for SEARCH command in that range from that module. it is 
called to handle source Line dis bay nN response to the TYPE command 
the EXAMINE/SOURCE command, the SEARCH command, breakpoints, watchpoints, 
one stepping by line. In fact, all source Line displays go throug 

S routine. 


More specifically, this routine scans through all the Source Line Corre- 
lation DST Records for the specified module to find the desired Line 
numbers. It executes all the commands in these DST records as it goes 
along, and is thus able to determine the appropriate File ID and record 
number within the file for each desired Line number. For each such Line 
it then calls DBGSSRC_TYPE_LINE to actually retrieve, or search, and/or 
display the text of the Line. 


It handles Declare Source File commands in the DST records by building a 
File ID Table for the current module. This table consists of a singly 
Linked List where each entry corresponds to one source file contributing 
to the current module. The file's File ID and a pointer to its Declare 
Source File command block are stored in each entry. SRC_FILEID_TBL 
points to this Linked List. DBGSSRC_MODRSTPTR points to the current 
module's Module RST Entry, this variable is set by this routine and 

is later used by DBGSSRC_TYPE_LINE. 


MODRSTPTR = A pointer to the Module RST Entry of the module in which 
the source lines are to be looked up. 


LOWLNUM - The Line number of the first source Line to be syped out. 
This is assumed to be a Line number in the MODRSTPTR module. 


LOWSTMT = The statement number, if any, associated with the first 
source Line to be Bity out. If no statement number should 
be associated with the LOWLNUM Line, LOWSTMT must be zero. 


HIGHLNUM = The Line number of the last source Line to be type out. 
This too is assumed to be a Line in the MODRSTPTR module. 
HIGHLNUM must be greater than or equal to LOWLNUM. 


HIGHSTMT = The statement number, if any, associated with the last 
source line to be eypee out. If no statement number should 
be associated with the HIGHLNUM Line, HIGHSTMT must be zero. 
If HIGHLNUM equals LOWLNUM, HIGHSTMT must be greater than 
or equal to LOWSTMT. 


SEARCH_FLAG - oo, set to non-zero value to indicate the SEARCH command 
is active, set to zero to indicate other commands are active. 


STEP_FLAG = Flag set to TRUE to indicate the call is from STEP command. 
If the source file is not available we only give the message 
once, and suppress it the rest of the time. 


; 3160 1 

; 3161 1 

4 19¢ 1 

; 316 1! 
3; 3164 0 1 ! FUNCTION 
g 193 1 : 
; 189 : 1 i 
; 3168 a, 2 
3 199 85 1! 
; 3170 Hy] 1! 
; 3171 capt 
3 \7¢ 8 1! 
3s 517 89 1! 
3 3174 90 1! 
3; 3175 91 =#«18 
; 3176 4 1! 
; 3177 293 (1! 
; 3178 294 1! 
; 3179 295 1! 
; 3180 296 1! 
; 3181 297 1! 
: 3182 298 1! 
; 3183 3299 1! 
3; 3184 3300 1! 
3; 3185 3301 1! 
3 $186 $308 £. 
: 3187 303 1! 
; 3188 3304 1! 
s $188 3302 2s 
; 3190 306 1 ! INPUTS 
3; 3191 3307 1! 
; 3192 3308 1! 
3; 3193 $398 13 
; $19 jj RE 
3; 3195 3311 1! 
; $138 33/8 1! 
; 3197 331 1! 
; 3198 3314 1! 
3; 3199 3315 1! 
; 3200 316 1! 
3; 3201 4 1! 
3 $06 18 #1! 
3 $0 319 1! 
3: 3204 320 1! 
3; 3205 321 1! 
3; 3206 35§ 1! 
3; 3207 3 . 7 
3; 3208 324 1! 
: 3209 ; 5 1! 
3 10 $ 1! 
‘3512 358 1 i 
: 218 309 1! 
3 14 330 1! 
3; 3215 i) > ee 
3; 3216 332 1! 
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OUTPUTS 
NONE 


' 
BEGIN 


MAP 
MODRSTPTR: REF RSTSENTRY; ! Pointer to Module RST Entry of module 


containing desired source Lines 


LOCAL 
ALL_DONE_FLAG, 


BUFFER: VeCTORC140.ByTE, 
BUF _DESC: VECTORC2,LONG), 
DSTPTR: REF DSTSSRC_COMMAND, 


DSTREC_PTR: REF DSTSRECORD, 


Flag set to TRUE if source operation 
is all done in screen display 

Output buffer for signaling 

Output buffer string descriptor 

Pointer to the Source File Correlation 


Comman 
Pointer to the Source File Correlation 
OST ord 


TMT 
MODRAMEPTR: REF VECTORC,BYTE), 
MODSRCTBL: REF VECTORC,LONG), 


Pointer to counted ASCII name of current 


module 

Pointer to a list of Source File 
Correlation DST Record pointers 
for the current module 


WWNAAAAAANNAWAN NNW AANA AANA NNW 
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3 rec 

3 HIGH_LINE_NUM, Place holder for Ending Line Number 

3 HIGH_ . Highest Line number of ronge 

3 HIGH_STMT, Statement number of of highest Line 

rs LENGTH, Length of current Source File Correlation 
ecor 

4 LINE_NUM, The current Listing Line number 

4 LOW_CNUM, Lowest Line number of range 

rs LOWS Statement number of lowest Line 

4 

4 

4 

4 


POPIPIPIPIPONININIPIPIPINININPIPINPINIPINININININININININININ 2 2 
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pisses 
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50 SEARCH_FND, Used for SEARCH command only. Flag 
33 get Se + ae if the search string 
s foun 
38 SFIT_PTR: REF SFITSENTRY, Pointer to the Source File ID Table 
54 7 SRC_FILEID_TBL, Pointer to a Linked List of File ID 
55 7 Table entries for current module 
56 7 SRC_DSTPTR, Pointer to Declare Source File Command 
57 7 n DST Record 
58 7 SRC_REC, The record number in the current source 
59 7 ile of the current source Line 
7 STATEMENT_MODE, Flag set to TRUE if we are currently 
7 n Statement Mode 
7 STMT_NUM The current statement number 
7 TYPE-FLAG; Flag set to TRUE if TYPE LINE routine 
has been called at least once 


POPIPIPOPIPIPIPIAININIPIPIPIPIPININININININININININIPINIPPoN9NPy 


MISES aroReS 


: Make sure Module RST pointer is not null. 
if jMOoRSTPTR EQL 0 
$DBG_ERROR( *DBGSOURCE\DBGSSRC_TYPE_LNUM_SOURCE 10°); 


Len 
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Ope aaa 9 96:73:22 DEBUG. SRCIOBaGOURCE .039s1 9° 18) 
7% 90 
75 91 ! Start | doing some gone }etoncy checks to ensure that the Line number 
r6 3 ' of the Last source Line is greater than or equal to the Line number 
7 9 ' of the first source Line. f no statement number should be associated 
a 94 ' with Line number, statement number must be zero. If HIGHLNUM equals 
95 i LOWLNUM, HIGHSTMf must be greater than or equal to LOWSTMT. If 
eT 36 i either is wrong, signal an error and give up. 
§ 4 IF (.LOWLNUM GTR .HIGHLNUM) THEN SIGNAL (DOBG$_INVSRCLIN); 
8 IF (.LOWLNUM EQL .HIGHLNUM) AND (.LOWSTMT GTR .HIGHSTMT) 
84 400 THEN 
5 8 SIGNAL (DBG$_INVSRCLIN); 
8 208 
88 404 ' Determine whether the source output from this call should be redirected 
4 405 : to a screen display. 
91 rhs] SOURCE _TO_SCREEN_FLAG = FALSE; 
38 08 IF (.DBGSGL_SCREEN SOURCE NEQ 0) AND 
9 9 (.SEARCH-FLAG EGL 0) AND 
9% (NOT .STEP_FLAG) 
95 THEN 
$38 SOURCE_TO_SCREEN_FLAG = TRUE; 
98 
339 ' Copy the Line number range into local variables. Then, if this is part 
! of a screen output operation, initialize the screen output and adjust 
} the Line number range according to the size of the screen display to 
! 


receive the source output. 
LOW_LNUM = .LOWLNUM; 
LOW"STMT = .LOWSTMT: 
HIGA_LNUM = .HIGHLNUM; 
HIGH-STMT = .HIGHSTMT: 
IF, SOURCE_T0_SCREEN_FLAG 
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BEGIN 
DBGSSCR_SOURCE_BEGIN(.LOWLNUM, .HIGHLNUM, 

LOW _LNUM, HIGH_LNUM, .MODRSTPTR, ALL_DONE_FLAG); 
IF -ALL_DONE_FLAG TREN RETURN; 


NOUS WIN O 


! Initialization. Assume that Line Number is set to the bogtagtng of the 
! Listing, Source File Record Number is set to the beginning of the 

i source file, no Source File ID is found, Statement Mode is not set. 
i 


—) se os 


no Line is yet typed out, and statement number is set to 0. 
IF ,SEARCH_FLAG EQL 0 THEN DBGSSRC_NEXT_MODRSTPTR = 0; 
DBGSSRC_SEARCH FLAG = .SEARCH_FLAG; 

DBGSSRC"FORMFEED_FLAG = FALSE; 
LINE_NUA = 1; 
44 STMT_NUM = 0; 
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AX-11 Bliss 
DEBUG. SRCID 


' Points to the current modules's Module RST Entry, this is later used 
: ; by DBGSSRC_TYPE_LINE routine. And also get the Module Name. 


bBGSSRC -MODRSTPTR = .MODRSTPTR 

DBGSSTA_SYMNAME (. MODRSTPTR, MODNAMEPTR) : 

' Make sure Module Source Table pointer in module's Module RST Entry 
points to a List of Source File DST Record Pointers. 


if ,MODRSTPTRERSTSL_MODSRCTBLI EQ. 0 


BEGIN 
SIGNAL (DBG$_SRCLINNOT,1, .MODNAMEPTR) ; 
RETURN; 


Loop thru Module's Source Line Correlation DST Records. 


MODSRCTBL = .MODRSTPTRCRSTSL_MODSRCTBLI; 
INCR COUNT FROM 1 TO .MODSRCTBLCOJ DO 


BEGIN 
IF (.LINE_NUM GTR .HIGH_LNUM) AND (.STMT_NUM GEQ .HIGH_STMT) 

EXITLOOP; 

le have found the ist match string for the SEARCH/IDENT/NEXT or 

7 SEARCH/STRING/NEXT command. Exit the loop. 
if .SEARCH_FND AND 

(t DBGSSRC_SEARCH_FLAG EQL SEARCH_IDENT_NEXT) OR 

(. DBGSSRC"SEARCH_FLAG EQL SEARCH_STRING_NEXT)) 


NEXITLOOP; 


' Get Source Line Correlation DST Record pointer. 


bsTREC PTR = .MODSRCTBLC. 
IF .DSTREC_PTRCDSTSB_TYPE re istsK. SOURCE 


THEN 
$DBG_ERROR( *DBGSOURCE\DBGSSRC_TYPE_LNUM_SOURCE 20°); 
' Scans thru Source File DST Record to decode the Source File Correlation 
' Commands. Pick up the length of this DST record. Set pointer to the 
; first command entry. 


LENGTH = .DSTREC_PTRCDSTSB_LENGTH); 


<o 


fos 


9 
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ite ty aR aets 1 96:73:22 YoEBUG. SRC Seacounce.635:1 oe 18) 
; DSTPTR = DSTREC_PTRIDSTSA SRC FIRST cm); 
WHILE. ( DSTPTR = .DSTREC_PTR = 1) NEG .LENGTH DO 
IF (.LINE_NUM GTR .HIGH_LNUM) AND (.STMT_NUM GEQ .HIGH_STMT) 


EXITLOOP; 


<o 


uw 


! We have found the ist match string for SEARCH/IDENT/NEXT or 
! SEARCH/STRING/NEXT command. Exit the loop. 


if .SEARCH_FND AND 


PONSESELESE SSIS 


' Set Source File Command. This command sets the current 
' source file to the file denoted by the File ID piven in 
the command. This File ID must be pre-defined by the 

i 


Declare Source File Command. 
tosT$K SRC_SETFILE): 


0 
; 
¢ 
g ((, DBGSSRC_SEARCH_FLAG EQL SEARCH_IDENT_NEXT) OR 
y DBGSSRC_SEARCH_FLAG EQL SEARCH_STRING_NEXT)) 
; EXITLOOP; 
405 1 
406 § ! Pick up the command code defined in Source File DST Record 
407 ! and use it as a CASE index so each significant command code 
r+ : can be interpreted individually. 
10 $ CASE -DSTPTRCDST$B_SRC_COMMAND] FROM DSTSK_SRC_MIN_CMD TO 
11 DSTSK_SRC_MAX_CMD OF 
alg 8 SET 
tie 3 
415 1 ! Declare Source File Command. Allocate some space to build 
ret | ¢ the File ID Table. 
4g 4 Costs SRC _DECLFILE): 
$9 § i felt Pre NEQ 0 THEN SFIT_PTRCSFITSL_CURRECNUM) = .SRC_REC; 
} 4 oO 
23 8 SFIT_PTR = OBGSGET_TEMPMEM(SFITSK SIZE); 
9 SFIT-PTRCSFITSL_FLINK] = .SRC FILETD TBL; 
4 0 SFIT_PTRESFITSL_FILE_ 1D] = .DOSTPTRCDSTSW_SRC_DF_FILEID); 
5 1 SFIT_PTRESFITSL_DSTPTR) = .DSTPTR; 
6 ¢ SFIT_PTRCSFITSL_CURRECNUM) = .SRC_REC; 
? SRC_FILEID_TBL = .SFIT_PTR: 
8 4 DSTPTR = .BSTPTR + .OSTPTREDSTSB_SRC_DF_LENGTH) + 2; 
) 
3 
9 


IF .SFIT_PTR NEQ O THEN SFIT_PTRCSFITSL_CURRECNUM) = .SRC_REC; 
SRC_DSTPTR = 0; 

SFIT_PTR = ~ SRE FILED TBL; 

WHILE .SFIT_PTR-NEQ 0 BO 


BEG 
IF .DSTPTRCDSTSW_SRC_UNSWORD] EQL .SFIT_PTRCSFITSL_FILE_1D) 


40 
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! If this File ID has not yet been declared, signal an 
} invalid DST Record. 

if ~SRC_DSTPTR EQL 9 THEN SIGNAL (DBG$_INVDSTREC); 
= = .DSTPTR + 3; 


! Set Source Record Number Long Command. Set the current source 
; file record number. Advance DSTPTR. 


CDSTS$K_SRC_SETREC_LI: 
BEGIN ~ 


SRC_REC = sBS Te TRCOSTS. ~SRC_UNSLONG); 
he = .DSTPTR + 5; 


: Set Source Record Number Word Command. (More compact form). 
(osT$k SRC SETREC_W): 


SRC_REC = sbererate TSW. SRC_UNSWORD]; 
pet TPTR = .DSTP 


! Set Line Number Long Command. Set the current Listing Line 
} number. Advance DSIPTR. 
CDSTSK_SRC_SETLNUM_L3: 

BEGIN 


= gpsterat STSL_ SRC_UNSLONG); 
bStPTR = = “DSTPTR 


: Set Line Number Word Command. (More compact form). 
COSTSK_SRC_SETLNUM_W): 
BEGIN an 


LINE NUM = eOSTPTRE “them SRC_UNSWORD); 
corte © -DSTPTR 
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Increment Line Number Byte Command. Increment the current 
Listing Line number by a byte value given in this command. 
Advance DSTPTR. 


DSTSK_SRC_INCRLNUM_B): 
BEGIN 


LINE NUM = .LINE_NUM + .DSTPTRCDSTSB_SRC_UNSBYTE); 
psrpre = .DSTPTR + 2; 


a th 


' Count Form-Feeds as Source Records Command. This command says 
! that form-feeds in the source should be counted as separate 

' source records; the absence of this command says that such 

! records should be ignored as control information and should 

' not be assigned Line nubmers. 


' 
' 
' 
' 
' 
1 
CDSTSK_SRC_FORMFEED): 


DBGSSRC_FORMFEED_FLAG = TRUE; 
DSTPTR = .DSTPTR + 1; 


' Define N Separate Lines Word Command, and Define N Separate 
' Lines Byte Command (More Compact Form). If a Source File is not 
' set, signet and give up. Defines the Source File and Source 


! Record Numbers for a specified number of Listing Line Numbers. 
! Call TYPE LINE routine, if LOW_LNUM <= LINE_NUM <= HIGH_LNUM. 
[DSTSK_SRC_DEFLINES_W, DSTSK_SRC_DEFLINES_8): 


‘ 
i 
i 
i 
i 
i 
C 
IF .SRC_DSTPTR EQL 0 THEN SIGNAL (DBG$_INVDSTREC); 


Calculate the Listing Line number range. 
if _DSTPTACOSTSS_SAC_CORMAND) EQL DSTSK_SRC_DEFLINES_W 
HIGH_LINE_NUM = .LINE_NUM + .DSTPTRCDSTSW_SRC_UNSWORD] =- 1 


ELS 
HIGH_LINE_NUM = .LINE_NUM + .DSTPTRCDSTSB_SRC_UNSBYTE) - 1; 


Test to see if the Listing Line number exceeds the type 
Line range. If it is, increments the source record number 
Listing line number and DST pointer, then returns. 
F (.LINE_NUM GTR .HIGH_LNUM) OR 

(,HIGH-LINE_NUM LSS [LOW_LNUM) 

BEGIN 

IF .DSTPTRCDSTSB_SRC_COMMAND] EQL DSTSK_SRC_DEFLINES_W 

SRC_REC = .SRC_REC + .DSTPTRCDSTS$SW_SRC_UNSWORD) 


SRC_REC = .SRC_REC + .DSTPTRCDSTS$B_SRC_UNSBYTE); 
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ww 
oO 


ELSE ' 
E_FLAG = TRUE; 


! Synchronize the Source Record Number with the Listing Line 
} Numbe 


iF (.LOW_LNUM = .LINE_NUM) GTR O 
SRC_REC = .SRC_REC + (.LOW_LNUM = .LINE_NUM); 


INCR I FROM AK LOW_LNUM,.LINE_NUM) T 
(SHIGA LNUM, .HIGA_LINE "NUM dO 


BEGIN 
SEARCH_FND = DBGSSRC A ob ieee I, «STMT 


FERSS Za ISSS TSOP EROS 


PUPP PUP PPPS SISA ASIA 


: : Any other command code constitutes an error in the DST. 


t INRANGE OUTRANGE): 
SIGNAL (DBG$_INVDSTREC); 


cae a te ss Wd at 


6 
694 .SRC_DSTPT EC. aareP “tne: 
695 IF «SEARCH, FND TREN SEARCH FeRers 
696 SRC_REC 4 SRGAREC * 1; 
69 IF ~SEARCH FND-AND 
698 ( DBGEsRe -SEARCH_FLAG EQL SEARCH_IDENT_NEXT) OR 
4 me ( DBGSSRC~ “SEARCH_FLAG EQL SEARCH_STRING_NEXT)) 
85 701 EXITLOOP; 
587 70 END; 
588 04 
589 705 END; 
590 706 
591 70 INE NUM = .HIGH_L 
298 708 .BSTPTRCOST$B~ bie E CORMANDS” EQL DST$K_SRC_DEFLINES_W 
594 DSTPTR = .DSTPTR + 3 
595 ELSE 
39 DSTPTR = .DSTPTR + 2; 
598 END; 
599 
5 


TES; 
END; ! End of WHILE Loop through commands. 
END; ! End of INCR Loop through DST records. 


! If we were outputting source Lines to a screen display, close out that 
screen display properly. 


~“ 
oO 
RIP IMI IE BBB BB BEB ED NDNDANDMMNANE BA NINN OD NINN NIN NINA AAA AOAAAAOAAOOOUAAD 


SN NNN 
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idee tt 1b-Se0-1984 96: $3323 DEBUG. SRCID BecOURCE .635s1 . (18) 
: 3616 ? ; IF .SOURCE_TO_SCREEN_FLAG THEN DBGSSCR_SOURCE_END(); 

: 361 734 

3 i$ 735 ! Issue a warning message if no Lines were eyes out. This situation 

; 0 7 § ' occurs if the specified Line numbers do not exist in this module. 

: 1 4 5 If it is in the search mode, signal no matches instead. 

; 5 739 if NOT .TYPE_FLAG 

3: 3626 740 THEN 

; 5 741 IF .DBGSSRC_SEARCH_FLAG EQL 0 

Be ke “ 

; 3628 744 BUF esc ScfO} = 

3; 35629 745 1 reas = sitie 

: 1 4 | 4 IF OWLNUM EQL eee mun) AND (.LOWSTMT EQL .HIGHSTMT) 

; § m8 DBGSFORMAT_FAO_OUT(BUF _DESC, UPLIT BYTE(ZASCIC ‘Line "), 0) 

3 3 730 DBGSFORMAT_FAO_OUT(BUF _DESC, UPLIT BYTE(ZASCIC ‘Lines °), 0); 

; % P36 DBGSFORMAT FAO OUT(BUF_DESC, UPLIT BYTE(ZASCIC ‘!UL"), .~LOWLNUM); 

3 37 75 IF .LOWSTMT NEO 0 

; 3638 754 THEN 

: 4 £32 DBGSFORMAT_FAO_OUT(BUF _DESC, UPLIT BYTE(ZASCIC *.!UL"), .LOWSTMT); 
: 3641 139 4 IF (.LOWLNUM NEQ .HIGHLNUM) OR (.LOWSTHT NEQ .HIGHSTMT) 

; ; P28 DBGSFORMAT_FAO_OUT(BUF _DESC, UPLIT BYTE(ZASCIC °:!UL*), .HIGHLNUM); 
; 5 761 IF .HIGHSTMT NEQ 0 

; a4 768 DBGSFORMAT_FAO_OUT(BUF_DESC, UPLIT BYTE(ZASCIC *.!UL"), .HIGHSTMT); 
; ch 3765 4 i £-L OULU EQL .HIGHLNUM) AND (.LOWSTMT EQL .HIGHSTMT) 

; 31 $767 i _DBGSFORMAT_FAO_OUT (BUF DESC. UPLIT BYTE(ZASCIC * does"), 0) 

; 35 ? i DBGSFORMAT_FAO_OUT(BUF _DESC, UPLIT BYTE(ZASCIC * do"), 0); 

; 22 44 DBGSF ORMAT_F AO ed yo DESC, UPLIT BYTE(ZASCIC ° not exist in module '!AC"), 
; 6e9 77 BUFFERCO) = inn “BUF _DESCCO); 

3 3658 774 SIGNAL (DBGS_NOLINXXX, T, BUFFER); 

3 2 Aa END 

> 3661 77 

: § are : If we were in a SEARCH command and output no Lines, signal no matches. 

; 780 ELSE 

3 3665 , : SIGNAL (DBGS_NOMATCH); 

; ? 

: 4 ¢ : Check to see if any matches were found for the SEARCH command. 

; z if -TYPE_FLAG AND NOT .SEARCH_FLAG AND .DBGSSRC_SEARCH_FLAG NEQ 0 

; 788 SIGNAL (DBG$_NOMATCH) ; 


oe 
ow 
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“Ww “Ww 


9 

WEsewrt9Re OB:FSSE YAKS OL gaz Me OZ Page 18) 
RETURN; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


5 5 4F 47 & 44 O22F P.ABE: .ASCII \ZDBGSOURCE\<92>\DBGS$SRC_TYPE_LNUM_SOURC\ § 
2 33 3h 82 SF tg $5 83 8888 he alta 
4 3 GF 40 $ 
3 4 2 ASCII \f 10\ : 
52 55 4F 5 4 4g 44 é 5 P.ABF: ASCII \%DBGSOURCE\<92>\DBGSSRC_TYPE_LNUM_SOURC\ 
45 50 59 54 SF & 28 0 : 
43 ; 4F 00 ; 3 
30 20 45 . 7 ASCII \§ 20\ ; 
3 65 6€ 69 6C 05 7B P.ABG: .ASCII <5>\Line \ : 
20 65 6€ 92 C § 0 4 P.ABH: .ASCII <6>\Lines \ : 
f 5 21 0 P.ABI: .ASCII <3>\!UL\ 3 
4¢ $5 1 E 04 O0028C P.ABJ: .ASCII <4>\.!UL\ § 
4C¢ 22 1 A 04 00291 P.ABK: .ASCII <4>\:!UL\ é 
rt 5 1 f 4 0296 P.ABL: .ASCII <4>\.!UL\ $ 
73 65 6F 64 8 0298 P.ABM: .ASCII <5>\ does\ 3 
6F 64 8 O2A1 P.ABN: .ASCII <3>\ do\ : 
78 65 20 74 6F 6€ 1 O2A5 P.ABO: .ASCII <24>\ not exist in module !AC\ : 
21 20 65 6C 5 64 6F 6D 00284 s 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY pecs RC ca ROTRIOCRTIOC Save R2,R3,R4,R5,°; 3276 
5E FF30 CE 9€ 0000 MOVAB = 568 C&P) sb : 
5 04 At DO 0000 MOVL noDRsTP rR. SR2 : 3386 
1 1 0008 BNEQ 1$ 3 
00000000° F 9F 000 PUSHAB P.ABE ; 3388 
1 0D 0001 PUSHL 3 
00028362 F DD 0001 PUSHL 64706 3 
00000000G 00 3 FB 0001 CALLS a3. LIBSSIGNAL 3 
10 AC 08 AC O01 00022 1$: CMPL OWLNUM, HIGHLNUM ; 3398 
D 15 000 BLEQ 8 
00028CCO F DD 3 9 PUSHL #167104 3 
00000000G 00 1 FB fa CALLS #1, LIBSSIGNAL 3 
3s AE D4 3 23: CLRL 3; 3399 
0 a ac 01 CMPL  reaiae HIGHLNUM 3 
| ae BNEQ $ 3 
38 AE bo 4 INCL 40(SP) : 
14 AC C as ih r Hats WSTMT, HIGHSTMT s 
00028CCO rt 0D 4A PUSHL #167104 3: 3401 
000000006 1 re 9 CALLS #1, LIBSSIGNA 3 
SN fr D 38: CLRL SOURCE -10_SC CREEN. F LAG : 3407 
G 8 9 TSTL DBGSGL_ “SCREEN _SO0RC RCE : 3408 
1 $8 BEQL 4 3 
18 ac O 6 TSTL SEARCH_FLAG ; 3409 


a 9 
DBGSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 1 
Mites a aets 1 96:73:22 Pies. SRCIOBaSOURCE .039;1 oe 18) 
0B 1 68 BNEQ 4$ : 
07 10 AC OE 6A BLBS  STEP_FLAG, 4$ : 3410 
00000090" EF 01 »D of MOVL #1, SOURCE_TO_SCREEN_FLAG : 412 
4 A€ 8 AC D 4$ MOVL LOWLNUM, LOW_CNW : 34 
38 C AC DO 0007A MOVL LOWSTMT, R11 + 3421 
0 5B OD 43 MOVL R11, LOW STMT : 
30 AE 10 AC D 8] MOVL §-HIGHLNUM- HIGH_LNUM : 3422 
SA 14 4#at (OO MOVL HIGHSTAT R1 : 34 
20 AE SA 00 OBA MOVL R10, HIGH_STMT : 
1D 00000000' EF £9 00 : BLBC SOURCE _TO"SCREEN_FLAG, 5$ + 3426 
2c AE F 0009 PUSHAB ALL DORE FLAG + 3427 
5 pp 0098 PUSHL R : 34 8 
38 AE F oA PUSHAB HIGH_LNUM 3; 34 
40 AE OF 0090 PUSHAB LOW CNUM : 
10 AC DD OOOA PUSHL HIGALNUM 3 
08 AC DD OOOA PUSHL LOWLNUM : 
000000006 00 06 FB O06 CALLS #6, DBGSSCR_SOURCE_BEGIN : 
01 2c AE F9 OOAD 8 BC  ALL_DONE_FLAG, 5$ : 3429 
18 AC DS 00082 5$ TSTL § SEARCH_FLAG + 3438 
06 12 0008 BNEQ : 
00000000" EF D4 9087 CLRL § DBGSSRC_NEXT_MODRSTPTR : 
00000000" EF 18 AC DO 0 8p 6$: MOVL § SEARCH_FLAG, ~DBGSSRC_SEARCH_FLAG + 3439 
00000000' Fr D4 000C CLAL DBGSSRC_FORMFEED_FLAG 3: 3440 
54 1 00 000CB MOVL #1, LINE_N 3: 3441 
18 «AC D4 OO0CE CLRL § SEARCH_FCAG + 3443 
14 AE C 00001 CLRQ SEARCH-FND + 3444 
53 04 00004 CLRL  SFIT_PTR + 3445 
6E D4 90006 CLRL = SRC_BSTPTR : 3446 
56 01 D0 0000 MOVL #1, SRC_REC : 3447 
50 D4 90008 CLRL = STATEMERT_MODE : 3448 
oc AE C 00000 CLROO SS + 3442 
00000000" EF 52 D0 000E0 MOVL R2, BBGSSRC_MODRSTPTR : 3456 
38 AE 9F O00E7 PUSHAB MODNAMEPTR : 3457 
52 DD OOOEA PUSHL R : | 
000000006 00 0 FB OoeC CALLS #2, DBGSSTA_SYMNAME : 
24 A2 D5 000F TSTL 6(R2) : 3463 
13 12 000F6 BNEQ : 
38 «=6AE «DD 000F8 PUSHL MODNAMEPTR + 3466 
1 DD O00FB PUSHL : 
00028¢B8 8F DD OrD PUSHL #167096 : 
000000006 00 03 fe ot : CALLS #3, LIBSSIGNAL © aeat 
1C AE 24 A2 90 00108 7S: VL 36(R2), MODSRCTBL : 5693 
ps 1 CLRL UNT : 3476 
02 1 0011 gs BRW 4 : 
30 AE 4 p} 115 9$ CMPL NE_NUM, HIGH_LNUM ; 
A 15 0011 BLEG : 
20 AE 0c At pi 11 CMPL STAT NUM, HIGH_STMT : 
0 9 001 BLSS 1$ F 
O21A 31 00102 108: BR 54$ F 
12 16 AE £9 00125 11$:  BLBC SEARCH_FND, 128 ; 3484 
02 00000000° ef bi CPL S$SRC_SEARCH_FLAG, #2 ; 3485 
04 00000000° EF of CPL GSSRC_SEARCH_FLAG, #4 ; 3486 
59 1C BELB 08 138 128:  MOVL = @MODSRCTBLCCOUNT), DSTREC_PTR > 3493 


—— 
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AX-11 BL 3 
DEBUG. SRCJDB 


RS 

R7 

NE _NUM 
HIGH_LINE_NUM, R7 


48$ ; 
DBGSSRC_SEARCH_FLAG, #2 
DBGSSRC_SEARCH_FLAG, rT 
R7, I, 46$ 
#1, HIGH LINE_NUM, LINE_NUM 
8(§P), 5T$ 
#3, DSTPTR 
#2, DSTPTR 
14§ 


@MODSRCTBL, #1, COUNT, 9$ 
SOURCE TO SCREEN FLAG, 55$ 


— #0, DBGSSTR_SOURTE_END 


TYPE_FLAG, 56$ 
68$ 
DBGSSRC_SEARCH_FLAG 


be 

#139 BUF _DESC 
BUFFERS | BUF _DESC+4 
40(SP), 58$ 


11, R10 
58$ 
=(SP) 
P.ABG 
59$ 
=(SP) 


P. ABH 
BUF _DESC 
#3, “DBGSFORMAT_FAO_OUT 
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(18) 
3680 
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GSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 v4.0-74 Page 110 
itt ti 12-388718 4 95:73:22 DEBUG. SRCIOBaSOURCE .039;1 9° 18) 
AC DD PUSHL. LOWLNUM : 3752 

00000088" EF BF ef PUSHAB P.ABI : 

46 ae 9F 00397 PUSHAB BUF DESC : 

000000006 00 9 F 9A CALLS #3, DBGSFORMAT_FAO_OUT : 
8 D Al TSTL ss aR + 3753 
$8 0D A te th : 3755 

00000000" €F ef A PUSHAB P.ABJ ; 

46 ae OF 003A PUSHAB BUF DESC : 

000000006 00 0 fo B CALLS #3, DBGSFORMAT FAO_OUT $ 
10 ac 08 4 D B7 60S: CMPL LOWLNUM, HIGHLAUM : 3757 

: 1 BC BNEO 61$ : 

SA : D B CMPL R11, R10 : 

13 13 003C¢ BEQL 62$ : 
ooooo0gs" EF br poste | opusnie peaen em (om 

44 AE 9F 003CC PUSHAB BUF DESC : 

000000006 00 2 F 0 CF CALLS #3, DBGSFORMAT_FAO_OUT : 
AD Dg 62$: TSTL = R10 : 3761 

12 13 0030 BEQL 46s-«6 38 : 
oo000000" ef dF bose PUR PF ABL Stoeg 

44 3 9F 00 es SH BUF DESC F 

000000006 00 03 FB 0 E CALLS #3, DBGSFORMAT_FAO_OUT : 
OF 28 «AE €9 OO3EC 638: BLBC 40(SP), 64$ : 3765 

A 5B D1 O03F CMPL ~=saR11, RIO : 
On Ae Oost ee : 3767 

00000000" EF 9F 003F PUSHAB P.ABM : 

08 11 003FD BRB 65$ : 
oo000000" EF br Secon ne ophicting Phew Bay 

46 ae 9F 00407 65$:  PUSHAB BUF _DESC ; 

000000006 00 03 FB O40A CALLS #3, DBGSFORMAT_FAO_OUT F 

AE DD PUSHL MODNAMEPTR : 
38 411 3772 
exteet* 4 cr 3 SeIA PUSHAB BUF DESC te 

000000006 90 08 ee 00410 CALLS Fi “DBGSFORMAT_FAO_OUT 3 
Mo MC RS Fie ae Bay Bette wre ou 

DD 004 PUSHL # : 

0002818  8F DD 004 5 PUSHL #167448 : 
000000006 00 ; Fe 4 CALLS #3, LIBSSIGNAL Sen 
00028620 BF DD 0043F 66$:  PUSHL #167456 : 3781 

00000006 1 FB 0044 CALLS #1, LIBSSIGNAL : 

000000 5 1 $ 

1 1 AE €9 0044C 67$: BLBC TYPE FLAG, 69$ : 3786 

15 18 AC €8 00450 68$:  BLBS SEARCH FLAG, 69S : 

00000000" r ; 4 4 TST DBGSSRC_SEARCH FLAG : 
00028620 8F DD oe PUSHL #167456 : 3788 

000000006 00 1 FB 46 CALLS #1, LIBSSIGNAL : 
04 00469 698: RET : 3792 


; Routine Size: 1130 bytes, Routine Base: DBGSCODE + 1509 


eae Pe 


——— 


10 
G iS-Se “1984 02:35:55 AX-11 Bliss-32 V4.0-74 Page 111 
vos 12-8681 $84 95:93:22 DEBUG. SRCIOBGSOURCE .0355 1 (19) 
t? GLOBAL ROUTINE DBGSSRC_TYPE_PC_SOURCE(LOW_PC, HIGH_PC, MODPRTFLG, STEP_FLAG): NOVALUE = 
795 FUNCTION 
7 This ag (Bee accepts a range of Program Counter values and prints all 
79 source Lines which cover that PC range. This assumes that both PC 
798 values are located in the same module and that a line number is associ- 
799 ated with each end of the PC range. It also assums that the lower PC 
00 value is associated with the lower Line number of the range. This 
01 routine is called in the processing of the EXAMINE/SOURCE command and 
80 does the source display in response to breakpoints, watchpoints, and 
80 stepping by Lines. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

: The routine calls DBGSPC_TO_LINE_LOOKUP for the two PC values to get the corre- 
! sponding Line numbers. If Both PC values are the same (which is always 
; the case on breakpoints or when prespse ), DBGSPC_TO_LINE_LOOKUP is only called 
; once. The routine then checks that both PC values are in the same mod- 
: ule and signals an error if they are not. It also signals an error if 
: one or the other PC value does not correspond to a Line number or if the 
: Line numbers ney correspond to are not in the proper order. Routine 
SOGSSAC TYPE LN SOURCE is then called to retrieve and type the source 
: mages. 
] 

INPUTS 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


LOW_PC = The lower PC value of the address range whose source Lines 
are to be displayed. 


HIGH_PC = The higher PC value of the address range whose source lines 
pe displayed. HIGH_PC must be greater than or equal 
to PC. 


MODPRTFLG = Flag set to FALSE when the routine is called in reponse to 
breakpoints, watchpoints, and stepping by Lines, so that the 
module name will not be printed. 


‘Cd Cd GD Od Cd Cd Cd Cd Cd Gd Cd Od Cd Cd Od Cd Cd Cd Co Cd Cd Go Od CD Cd CD CD OD 
A. ALA. A.A AIR POPPI PINININONDYS 2 2 OO OO 


Low PC module name pointer 

Low PC module pointer 

Low stmt number 

High Fad PC of the selected Line/stmt 


H 
H 
H 
H 


LMODNAM 
LOW _MODPTR : REF RSTSENTRY, 


h Line number 
. Start PC of the selected Line/stmt 
h 


WN —OOOnOulun—oo 


HLINE START 
HMODNAMEPTR. 


° PC module name pointer 
HIGH_MODPTR, 


PC module pointer 


PRORIRIPOMOMOMIAIAIMIMPIPIROPUNIIII 8 a at tt a a at a a a a a 


Se WO thd 2O OW MOMENI —ODONOUE UNS OOONOU EUR 


09 
0 
ne STEP_FLAG = Flag set to TRUE to indicate the call is from STEP. 
714 OUTPUTS 
715 NONE 
716 
717 
718 BEGIN 
72 NABLE 
1s TYPE_PC_SOURCE _HANDLER; 
as LOCAL 
7 LLINE_END, Low End PC of the selected Line/stmt 
7 LLINE_NUM Low Line number 
4 LLINE START, Low Start PC of the selected Line/stmt 
7 
7 
7 
7 
7 
7 
7 


RRRARRESSELSA 


j 
ig 
ig 
ig 


een 


GSOURCE 16-Sep-1 AX-11 Bliss-32 v4.0-7 
ithe tits 1b-ep- 1984 96: 13:23 DEBUG.SR RCIDBGSOURCE .B3 832;1 
HSTMT_NUM, ! High stmt number 
STATUS; ' return status from PC to LINE translation 


' Check to see if the PC is an entry polar. if it is then PC = PC + 2. 
i Separately handle the case where PC = HIGH_PC, so that we only 
; have to call IS_IT_ENTRY once. 


PPP SPAAMIIVIVT 


WO DONO wn—O 


itr HIGH PC EQL .LOW_PC 
HEN 


SSNS SSNS 

yt at ot et et et et > 

Pele) ws —O0O@ w 
WA.NAAANI ANNAN AANA AAAI 


; if 

; ! BEGIN 

; 6 : IF (DBGSIS_IT_ENTRY(.LOW_PC)) 

: 6 ! THEN 

; 864 : acre 

; 3750 865 : OW PC = .LOW PC + 2; 

; 3751 ‘ HIGR PC = .LOO_PC; 

3; 375 86 : END; 

3; 375 868 ! END 

3; 3754 869 : 

3; 3755 870 ‘ELSE 

3; 3756 871 : EGIN 

3; 3757 1h) : IF (DBGSIS_IT_ENTRY(.LOW PC)) THEN LOW_PC = .LOW_P aa 
; 3758 87 : IF (DBGSIS_ITIENTRY(.HIGA_PC)) THEN HIGH_PC = onTGH. PC + 2; 
; 3759 874 : GMD; 

3; 3760 875 

3; 3761 876 

3: 376 877 ! Ensure that higher PC value is greater than or equal to lower PC value. 
3 Nt a78 ; If it is wrong, signal an error and give up. 

3 3765 rtf IF (.LOW_PC GTR .HIGH_PC) THEN SIGNAL (DBG$_EXARANGE) ; 

3; 3767 Ht 

; 3768 88 : Match an absolute PC address to a Line number. 

i | us oer 

3; 3771 ty] Sut = pacsri _TO_LINE_LOOKUP(. rat PC, LLINE_NUM — NUM, LLINE_START, 
> 377 88 INE_END, LOW-MODPTR) 

3; 377 888 

3: 3774 889 

3; 3775 890 ' Check to see if any error or if match cannot be made in PC to LINE 
3; 3776 891 ! translation. 

3; 3777 89 i 

3; 377 9 if NOT .STATUS 

3; 377 94 THEN 

3; 3780 895 BEGIN 

3; 3781 +4) IF .MODPRTFLG 

: ree 9 THE 

3; 37 898 SIGNAL (DBG$_NOSRCLIN,1,.LOW_PC) 

3; 37 144 ELSE 

3; 3785 RETURN; 

3 37 901 

3 af 4 END; 

; 3788 90 

; 3789 

: 3790 


: Get Module Name for lower PC value. 


10 
1S-Sep-1964 02:85:55 YAK-1) BLig8=32 94, 


; Le $08 DBGSSTA_SYMNAME (.LOW_MODPTR,LMODNAMEPTR) ; 

: 3794 9 

3; 3795 Bi ! If two PC values are not the same, calls PC to LINE routine for the 

3 738 91 ! higher PC value to get the corresponding Line number. If both PC values 
: ie 44 318 : are the same, set up parameters for routine TYPE _LNUM SOURCE. 

; 199 gif 1f  ,Low_PC EQL .HIGH_PC 

: 3801 916 BEGIN 

; 380 91 HLINE_ NUM = .LLINE_NUM; 

; 380 gis HSTMT-NUM = .LSTMT_NUM; 

; 808 320 ELSES 

; 806 921 BEGIN 

; 380 9 § HIGH_MODPTR = 0; 

; 3808 9 STATOS = DBGSPC_TO_LINE_LOOKUP(.HIGH_PC,HLINE_NUM,HSTMT_NUM,HLINE_START, 
; 3809 924 HLINE END ,HIGH-MODPTR) ; 

Be Be 

; aig 9 5 ! Check to see if any error or if match cannot be made in PC to LINE 
; siz ; $ : translation. 

; 815 3 0 if NOT . STATUS 

: 3a17 93¢ 4 BEGIN 

Be Be ei 

; 820 935 4 SIGNAL (DBG$_NOSRCLIN,1, .HIGH_PC) 

; 38 : 937 RETURN; 

; 38 938 4 

3: 3824 939 END; 

: 3896 3c) 

: yt Be : Get the Module Name for higher PC value. 

; 829 944 DBGSSTA_SYMNAME (.HIGH_MODPTR,HMODNAMEPTR) ; 

3831 ce 

; Bs * 1 Check that both PC values are in the same module. 

; Hn 309 IF .LOW_MODPTR NEQ .HIGH_MODPTR 

3 : 5 950 THEN 

3 951 4 BEGIN 

; tt 926 2 IF .MODPRTFLG 

; +43 Bee ? ma SIGNAL (DBG$_ADDRANCOV,4,.LOW_PC,.LMODNAMEPTR, .HIGH_PC, .HMODNAMEPTR) 
; 84 956 4 RETURN; 

; it 958 END; 

; Beg He END; ! End of matching high PC value to a Line number. 

; 96 

; 3848 308 ! Check for the entry point. 


H 10 
GSOURCE 16-Sep-1984 02:35:55 AX-11 Bliss-32 V4.0-74 P 1 
vOe 10-3651 98e 9337 746 DEBUG. SRCIDBGSOURCE 1039; 1 oe 


TF (-LLINE_NUM EQL 0) AND (.HLINE_NUM EQL 0) 
G 


BEGIN 
IF .MODPRTFLG 
SIGNAL (DBG$_NOSRCLIN,1,.LOW_PC) 


: Call TYPE_LNUM_SOURCE to type out the given source Line number ranves. 


H 9 964 : 
3 9 965 
3 BS¢ 369 
; 385 308 
; See 38 
3 2? 9 Y 
; 38 ° 97 
3; 385 97 RETURN; 
; S28 97 
; 385 974 END; 
Be OBR 
s B66 379 ! Make sure Module Source Table pointer in module's Module RST Entry 
; 386 978 ! points to a List of Source File DST Record Pointers. 
3: 3864 979 ! If not, then check whether we have reached this point through a step 
; 3865 980 ! or breakpoint. In this case we do not want to signal an error, so 
; ae9 rs we just return. 
3; 3868 388 IF (.LOW_MODPTRCRSTSL_MODSRCTBL] EQL 0) AND (NOT .MODPRTFLG) 
3; 3869 984 THEN 
; 3870 985 RETURN; 
3; 3871 9 $ 
3 are 98 
3; 387 988 ! Print out Module name if the print-module-name flag is set to TRUE. 
3; 3874 989 ! Note that the message is suppressed if the source line output is 
3 Sere 1644 : being directed to a source screen display. 
3; 3877 936 IF .MODPRTFLG AND (.DBGSGL_SCREEN_SOURCE EQL 0) 
; 3878 99 THEN 
3; 3879 994 BEGIN 
; 3880 995 DBGSPRINT(UPLIT BYTE(ZASCIC ‘module !AC*), .LMODNAMEPTR); 
3; 3881 996 DBGSNEWLINE(); 
3 Ht) 997 END; 
; 388 998 
3 999 
; 4001 : 
; 400 DBGSSRC_TYPE_LNUM_SOURCE(.LOW_MODPTR, .LLINE_NUM, .LSTMT_NUM, 
: res -HLINE_NUM, .HSTMT_RUM, 0, .STEP_FLAG); 
3 4005 RETURN; 
3 4006 
: 4007 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
43 41 21 20 65 6C 75 64 6F 6D OA OO2BE P.ABP: .ASCII <10>\module !AC\ : 


.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
01FC 00000 ENTRY DBGSSRC TYPE PC_SOURCE, Save R2,R3,.R4,.R5,~ ; 3793 


10 
yb-Bep-1964 02:55:55 YaKett BLigg=52 v4. 0-742 


; G MOVAB DBGSSTA_SY 7 
G MOVAB DBG$PC_TO LINE LOOKUP, R?7 
6 G MOV LIBSSIGNAL, R 
E ¢ 1 SUBL2 #48, SP 
D 0112 «CF OD 1A MOVAL 138, (FP) 
4 04 AC D 1F MOVL  LOW.PC, R4 
3 8 AC D ; MOVL #HIGA PE, R 
4D CMPL =sRG, R2 
9 15 OO02A BLEG)~=Sésés18 
00028190 8F DD 9 PUSHL #164240 
66 1 FB CALLS #1, LIBSSIGNAL 
E D4 0 1$ CLRL § LOW_MODPTR 
E BD PUSHL SP 
08 AE 9F 00039 PUSHAB LLINE_END 
10 AE 9F 0003C PUSHAB LLINE-START 
18 AE OF 0003F PUSHAB LSTMT—NUM 
20 AE OF 0042 PUSHAB LLINE~NUM 
54 DD 0004 PUSHL  R4 
67 9 FB 00047 CALLS #6, DBGSPC_TO_LINE_LOOKUP 
55 09 004A MOVL RO. STATUS 
11 55 €8 00040 BLBS STATUS, 2$ 
62 0c ac €9 00050 BLBC  MODPRTFLG, 5$ 
54 DD 00054 PUSHL 4 
01 DD 00056 PUSHL 
00028¢D0 BF DD 00058 PUSHL #167120 
6 03 FB 0005€ CALLS #3, LIBSSIGNAL 
14 AE 9F 00061 28: PUSHAB LMODNAMEPTR 
53 04 AF DO 00064 MOVL  LOW_MODPTR, R3 
53 DD 00068 PUSHL 
68 02 FB 0006A CALLS #2, DBGSSTA_SYMNAME 
52 54 D1 0006D CMPL RG, R2 
07 12 00070 BNEO 
24 «AE 0c AE 7D 00 2 MOVQ  LSTMT_NUM, HSTMT_NUM 
56 11 0007 BRB 63 
18 AE 04 00079 38: CLRL _—« HIGH_MODPTR 
18 AE 9F 0007C PUSHAB HIGH-MODPTR 
0 Ace 9F OO007F PUSHAB HLINE_END 
8 AE 9F 0008 PUSHAB HLINE-START 
0 AE 9F 0008 PUSHAB HSTMT-NUM 
8 AE 9F 00088 PUSHAB HLINE~NUM 
52 DD 0088 PUSHL R 
67 FB 0008D CALLS #6, DBGSPC_TO_LINE_LOOKUP 
5 D0 00 30 MOVL RO. STATUS 
11 E 9 9 BLBS STATUS, 4$ 
3F Oc ac €E 96 LBC DPRTFLG, 7$ 
2 DD 0009A PUSHL R 
1 0D 0009C PUSHL 
00028cD0 8F DD 0009E PUSHL #167120 
66 3 FB OOOA4 CALLS #3, LIBSSIGNAL 
ac AE 9F OOOA7 4$ PUSHAB HMODNAMEPTR 
€ AE DD OOOAA PUSHL HIGH MODPTR 
7 Q FB 0 AD CALLS #2, BBGSSTA_SYMNAME 
18 AE D B CMPL =s«R3, -HIGH_MODPTR 
1 13 B4 BEQL 6 
75 g¢ AC E B6 S$: BLBC  MODPRTFLG, 12% 
¢ AE DD OO0BA PUSHL HMODNAMEPTR 
52 DD 000BD PUSHL R2 


> tae 1 


1 
1¢ A 0D BF 
& Bb S0pts 
00028CD8 fF OD C6 
cag Ob BB Bonet 
AE 98 BO0ct 
28 AE OD 04 
7”. 7 07 
52 0c AC € 09 
$4 5 B0Dp 
00028CD0 Br 0D SOF 
66 fe 0E7 
24 A3 05 OOOEA 
0 is OOED 
05 oc AC F OOEF 
4 0O00F3 
1F OC AC €9 OOOF4 
000000006 99 DS 000F8 
1 12 OOOFE 
14 AE ODD bi 09 
00000000' EF 9F 0010 
00000000G 00 02 FB 00109 
00000000G 00 00 FB gtie 
10 AC OD 0011 
7E D4 OO1IA 
C AE DOD 0011C 
4 AE DD OO11F 
1¢ AE DD 001 ¢ 
24 A DD 001 
5 0D 00128 
FA67 CF 07 FB OO12A 
04 0012F 
0000 851 0 
7E D4 00132 
5E 4 Bat 
7E 04 ag D 001 
0000V CF 0 FB OO13A 
04 0013F 


3; Routine Size: 320 bytes, Routine Base: DBGSCODE + 1973 


: 10 


-Sep-1 
~Sep-1 


o 
wn 


GN 
ed 


o 
Aad 


10$: 


— 
=" 
bed 
ee 


be 18:47 


Ax-11 Ol igsnse V4.0-74 
DEBUG. SRC JDBGSOURCE .832;1 


5 

6 

MODNAMEPTR 

#167128 

#6, LIBSSIGNAL 
L INE NUM 

HL INE NUM 

MODPRTFLG, 12$ 
R4 


’ 

#167120 

#3, ” yeceenaenies 
36(R5) 


MODPRTFLG, 10$ 


MODPRTFLG, 11$ 
DBGS$GL_SCREEN_SOURCE 


een 


#2, DBGSPRINT 
#0, DBGSNEWL INE 
EP FLAG 


R 

#7, DBGSSRC_TYPE_LNUM_SOURCE 
Save nothing 

=(SP) 


SP 
4(AP), =(SP) 
#3, TYPE_PC_SOURCE_HANDLER 


——————__—— 


GSOURCE on3e “19 AX-11 Bliss-32 v4.0-74 Page 117 
Pb obo 15-Sep-1946 96: $332 DEBUG. SRCID BecouRce .635s1 ” (20) 
; 9 4 $ ! ROUTINE OUTPUT_DIR_LIST (DIRPTR) : NOVALUE = 
; 4010 1 | FUNCTION 
3; 389 4011 1! This routine outputs the Source be ea | Search List 
3 rs | 4 \§ 2. i one module (or the default List) on the user's terminal. 

3; 38 401 1! pe inte each Sirectory name on a separate Line, indented 
; 3900 tgie 1! a t epaeee. This routine is called during the SHOW SOURCE 
$ rod re dF : : command. 
: 308 tol? i INPUTS 
3: 3904 $38 73 DIRPTR = The first of a Linked List of Source Directory 
: 5 rtd : Search List Entries. 
: 3907 4021 1 | OUTPUTS 
; 3908 40 ¢ 1! NON 
; 3909 40 1 
3; 3910 4024 1 
3 ap rf 5 BEGIN 
: 318 40 2 DIRPTR : REF SDSLSENTRY; ' A pointer to a Source Directory 
3: 3914 4028 i Search List Entry. This is 
3; 3915 4029 : used to through the 
3; 3916 4030 ! Linked List 
3; 3917 4031 
BB Be 
: 920 4034 } Looe ou the List, outputting the directory name in each Source 
: , 1 rt} #4 ib irectory Search List Entry. 
: 9 5 4037 WHILE .DIRPTR NEQ 0 DO 
: 3925 4039 DBGSPRINT (UPLIT BYTE( 
3; 3926 4040 vag 'AC'), DIRPTRCSDSLSB_ENT_DIRLEN)); 
3 $055 4041 ; DBGSNEWL INE 
3 3928 4048 DIRPTR = ME IRETRESDSLSL _ENT_FLINK); 
: 3 3 toca ‘ 
: 3931 4045 RETURN; 
; 393 4046 
: 393 4047 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
43 41 21 20 28 20 20 20 20 20 20 OB 002C9 P.ABQ: .ASCII <11>\ 'AC\ 3 


.PSECT DBGSCODE,NOWRT, SHR, PICO 
0004 00000 OUTPUT_DIR LIST: 


- D Save R2 3 $008 

52 04 AC 09 2088 1$: ROvL DIRPTR, R2 ; 40 
04 » PUSHAB 4(R2) + 4040 
00000000" EF 0008 PUSHAB P.ABQ > 4039 


ay 


——— 


osm 


3; Routine Size: 


; 3934 


38 bytes, 


4048 1 


boovoego6 60 


Routine Base: 


05 FB 
aH 


DBGSCODE + 1AB3 


. ’ 10 


-Sep-1 
=teo-t 


PE 


(8) 


AX-11 BLi 
DEBUG. SR 


- DBGSPRINT 
i, D ver S13; tales 


cide 


=3 
DBGSOU 


2V 
Sou 


4.0- 
RCE. 


7% 
83 


34 


Page 118 
° (20) 


16-50 -1984 AX-11 Bliss-32 V4.0-74 
e888 -19ke 83:47:26 Ekaus. SecSaeesouRce .045; 1 

ROUTINE TYPE_PC_SOURCE_HANDLER(SIGARG, MECHARG, ENBLARG) = 
i FUNCTION 
; This routine is the handler for DBGSSRC_TYPE_PC_HANDLER routine. 
: It catches the DBGS_FILEUNAL signal and unwinds, it resignals 
everything else. 
i INPUTS 
SIGARG = The signal argument vector. 
MECHARG = The mechanism argument vector. 
' 
1 


ENBLARG = The enable argument vector. (not used). 
BEGIN 


SIGARG: REF VECTORC,LONG); ! Pointer to the signal argument vector 
IF .SIGARGC1) EQL DBGS$_FILEUNAL 
THEN 


BEGIN 
SETUNWIND(); 
RETURN 0; 


= PORURUTU INI RNNUnn hn 2 
. . . . . . 


END; 
RETURN SS$_RESIGNAL; 
END; 
0000 00000 TYPE_PC_SOURCE_HANDLER: 
WORD sve nothing 
50 04 AC 00 00002 MOVL $ RO 
00028010 8F 04 Ad 01 00006 CMPL tcROD” "#167184 
B 12 0000 BNEQ 1$ 
3 7C 0001 CLRQ =(SP) 
000000006 00 02 FB Bog CALLS #2, SYSSUNWIND 
06 11 0001 BRB 2 
50 0918 8F bf 8 18: MOVZ2WL #2328, RO 
4 RET 
50 04 3 1 28: CLRL RO 
04 3 RET 


36 bytes, Routine Base: DBGSCODE + 1AD9 


3; Routine Size: 


4079 1 
4080 0 END ELUDOM 


oo 


| N 10 
DBGSOURCE 6-Se 4 AX-11 Bliss-32 V4.0-74 Page 120 
yOe 000 1o-g8= 138s 95:93:2 DEBUG. SRCTOBGSOURCE 2639; 1 ve 39 
.EXTRN mang SYSSUNWIND 

: PSECT SUMMARY 

3 Name Bytes Attributes 

: DBGSGLOBAL 84 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 

; DBGSOWN 0 NOV WRT, RD .NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 

3 DBGSCODE 6 09 NOVEC.NOWRT, RD. EXE. SHR, LCL, REL, CON, PIC.ALIGN(O) 

; DBGSPLIT 725 NOVEC,NOWRT, RD, EXE, SHR. LCL, REL. CON, PIC. ALIGN(O) 

3 Library Statistics 

; Sense oo Syabols eooocese Pages Processing 

: File Total Loaded Percent Mapped Time 

: ~$3558DuA28: SYSLIBILIB.L32;1 18619 122 0 1000 00:01.9 

> 7$255$ UAB: DEBUG .OBJ JSTRUCDEF 32:1 32 0 0 7 00:00.2 

3 ~$582S DUA : (DEBUG. OBJ JDBGLIB.L32;1 1545 125 4 97 00:01.9 

; 7$255$DUA 8; DEBUG.OBJ JDSTRECRDS.L32;1 

; 418 135 32 31 00:00.3 

3 .$255$DUA28: (DEBUG.0BJ JDBGMSG.L32;1 386 19 4 22 00:00.3 

4 COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:DBGSOURCE/OBJ=0BJ$:DBGSOURCE MSRC$:DBGSOURCE /UPDATE = (ENHS$ : DBGSOURCE ) 

Size: 6909 code + 1289 data bytes 
Run Time 111.1 


flessed Time: 0 26.2 

Lines/CPU Min: 1807 

meet Ae Mite 16219 
Used: 477 pages 


eee eee Complete 


Se Ge Ge Ge Ge Se ee 


NT CORPORATION 


AH-BT13A-SE E 
ND PROPRIETARY 


DI 
VAX/VMS V4.0 CO 


009 


M 
A 


